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Super penp 



Ecco il classico gioco del Ping Pong con una di¬ 
vertente variazione. Al centro del campo di gio¬ 
co vi sono infatti 13 birilli che danno un pun¬ 
teggio se vengono colpiti dalla pallina. 

Il gioco è scritto in Integer BASIC che è una va¬ 
riante molto veloce del BASIC classico. Questo 
BASIC è posseduto da quasi tutti gli utenti Ap¬ 
ple perché fa parte dei programmi forniti con 
il sistema operativo DOS 3.3. Una bellissima 
caratteristica di questo BASIC è il controlo del¬ 
la sintassi al momento della introduzione delle 


linee del programma. 

Si gioca in due ed ogni giocatore muove la pro¬ 
pria racchetta per mezzo della paddle. Ogni 
volta che la pallina supera la propria linea di 
gioco l'avversario guadagna un punto. Se do¬ 
po avere respinto la pallina con la propria rac¬ 
chetta si colpiscono i birilli, si guadagnano due 
punti per ciascun birillo colpito. 

Vince il giocatore che primo raggiunge i 15 punti 
complessivi. 
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7 POKE -16298,0 
100 TEXT ! CALL -936 
1 10 VTAB 41 TAB 10 
120 PRINT “SUPER PONG COI BIRILLI’ 


3Su NX=X*XV:NY=Y*YV 
360 IF NX<0 OR NX>39 THEN 600 
370 IF NYC3 OR NY>116 THEN SOp 
380 IF SCRNINX,NY/3)HO THEN 600 


121 TAB 5ì PRINT “ECCO UN ESEMPIO DI 

COME POTETE" 

122 TAB 5: PRINT “MODIFICARE UN VECC 
HIO GIOCO.* I PRINT I PRINT 

123 PRINT “NUOVE REGOLEI“I PRINT 

124 PRINT " * 2 PUNTI PER OGNI BIRILLO 

COLPITO" 

125 PRINT “-1 PUNTO PER OGNI PALLA M 
ANCATA" 

130 FOR N“t TO 70001 NEXT N 
140 GR ì PRINT i PRINT i PRINT 
. PRINT 

150 DIM SC<1> ,PU> iSC<0)-0lSC<l 
>»0|P<0>=0;P<1)»0 
160 C0L0R=13 

170 FOR J—16 TO 24 STEP 2: FOR 
K—16 TO 24 3TEP 2 
180 IF NOT <J MOD 2) AND J MOD 
4-K MOD 4 THEN PLOT J,K 
190 NEXT K,J 

200 XV-< 2* RND <2>>-l«Y= RND <20 
>*10 

210 CÙLOR -8 

220 HLIN 0,39 AT 0: HLIN 0,39 AT 
39 

230 F=I : FOR N=1 TO 50 
240 PAD-0 

250 NP—' PDL <PAD)*34/25a 
260 IF NP=P<PAD> THEN 330 
270 COLOR-3 

280 VLIN NP.NP +6 AT PAD*39 
290 CÙLOR-O 

300 IF NP<PiPAD) THEN VLIN NP *6 
39 PA0*39 

310 IF NP > P< PAD) THEN VLIN 0 ,NP- 
I AT PAD *39 
320 P<PAD)=NP 

330 PAD-PAD*Il IF PAD<2 THEN 250 
340 IF F THEN 1000 


390 COLOR=0 
400 PLOT X,Y/3 
410 COLOR-15 
420 PLOT NX.NY/3 
430 X—NXiY—NY 
440 GOTO 240 
500 YV—YViNY-Y 

510 FOR N—1 TO 6 lNI— PEEK <-16336 
>1 NEXT N 
520 GOTO 390 

600 XV--XVI IF SCRN<NX,NY/3)43 THEN 
700 

610 YV—< <NY/3)-P<NX>—39 > >-3 iNX— 

X 

620 FOR N-l TO 5 INI— PEEK <-16336 
>: NEXT N 
630 GOTO 390 
700 COLOR—0 
710 PLOT NX.NY/3 
720 PL—<XV<0>:SC<PL)—SC<PL)*2 
730 VTAB 221 TAB I0«20«< NOT PL) 

740 PRINT SC<PL>; 

750 N= PEEK <-16336)+ PEEK <-16336 
)* PEEK <-16336) 

760 GOTO 390 

800 PL—<NX)39) 1 SC< PL>—SC( PL) *■ 1 
810 VTAB 22 1 TAB 10*20*< NOT PL) 

820 PRINT SC<PL); 

330 FOR N=1 TO 15iNl= PEEK <-16336 
>- PEEK <-16336)1 NEXT N 
640 COLOR-Ù 
850 PLOT X,Y/3 
860 IF SC<PL))14 THEN 1100 
870 GOTO 230 
1000 NEXT N 

1010 F—0:a—20 :YV— RND <7)-3 
1020 GOTO 240 

1100 VTAB 22 1 TAB 7*<20* NOT PL) 




1I10 PRINT “VINCE!“1 
9999 END 


Intcgci BASIC •' padfJli 


Fly trek 


Il programma vi porterà a combattere contro 
un aggueritissimo sciame di mosche che dovrete 
colpire con la classica paletta schiacciamosche. 
La paletta viene mossa sullo schermo per mez¬ 


zo delle due paddle o, se preferite, del joystick. 
Il movimento delle mosche sullo schermo è del 
tutto casuale e dovrete essere molto veloci nel 
centrare la mosca e premere uno dei due pul- 







santi delle paddle per dare il colpo mortale. 
Avete a disposizione cento colpi per tentare di 
uccidere quante più mosche potete. 

Potrete sfidare i vostri amici e vedere chi è il 
più bravo "acchiappamosche". 

Il gioco è scritto in Integer BASIC che è una ver¬ 
sione molto veloce del BASIC classico. Questo 
BASIC è posseduto da molti appleisti perché fa 

23 POI 
30 GR 

40 GOSUB 480I POR P-l TO 3000I 
NEXT P 

30 GOSUB 610) FOR P-l TO 3000I 
NEXT P 
40 GOSUB 440 

70 FOR P-l TO 3000I NEXT P 
80 GOSUB 870 
90 GOSUB 1070 
100 GOSUB 440 
110 N-OiT-O: GOSUB 1290 
120 X= RND <20)♦1lY— RND <20>*1 

130 CALL -9341 TAB 4| VTAB 23i PRINT 
•COLPI = 'iN: TAB 22i VTAB 23 
: PRINT "UCCISE — ■ [T 
140 TAB 10: VTAB 22: PRINT 'EFFICENZ 
A DEI COLPI —'iT*100/<NM)|'X' 

150 AA— RNO <4>M:BB= RND <-4>- 
1 

140 CC= RNO < 4 ) ♦ 1 : DD- RND <-4>- 
1 

170 XNEU=AA«BB:YNEW-CC*DD 
180 C0L0R=0 

190 PLOT XiY: PLOT X-l,Y-1: PLOT 
X*l,Y-l 

200 Z« PDL <0>/4: FOR P-l TO 10 
: NEXT P 

205 H-<255- PDL <1))/4 
210 1F Z>»35 THEN Z-35i IF H>-33 
THEN H«33 
220 COLOR-PC 

230 VLIN Z,Z*4 AT H: VLIN Z.Z*4 
AT H*4 

240 FOR P-l TO 3 
250 G» PEEK <-16334) 

240 NEXT P 
270 COLOR-14 

280 VLIN Z,Z*4 AT H: VLIN Z.Z*4 
AT M*4 

290 PLOT X,Yl PLOT X-l,Y-lI PLOT 
X*1,Y-1 

300 IF PEEK <-14287)>127 THEN GOSUB 
340 

310 IF PEEK <-l4284)>127 THEN GOSUB 
340 

320 X—X*XNEWiY—Y*YNEW 
330 IF X<—I THEN X-l1 IF X>-34 THEN 
X—34 

340 IF Y< — 1 THEN Y-l: IF Y>-34 THEN 
Y—34 

350 GOTO 150 

340 COLOR—14 : VLIN Z,Z«4 AT H: VLIN 
Z,Z*4 AT H*4 


parte della dotazione di programmi del DOS 
3.3. £ un BASIC molto adatto alla scrittura di 
giochi per la sua velocità, ed inoltre effettua 
il controllo sintattico delle istruzioni del pro¬ 
gramma al momento dell'immissione delle va¬ 
rie linee. 

Buon divertimento! 


370 N—N*I : IF N>—100 THEN 1230: 

TAB 4: VTAB 23: PRINT -COLPI -- 
IN 

380 COLOR—PC : VLIN Z,Z'4 AT H*2 

I FOR P»1 TO 3:J— PEEK <-14334 
>1 NEXT Pi IF SCRN<X,Y)-PC THEN 
1280 

390 COLOR—14i VLIN Z,Z*4 AT H*2 

400 RETURN 

410 COLOR—14I VLIN Z,Z*4 AT H«2 

420 COLOR—0 

430 Y»Y«1 : IF Y>—39 THEN Y-39: IF 
Y—39 THEN 120 

440 VTAB 23I TAB 22: IF Y-38 THEN 
PRINT 'UCCISE »•|T: IF 
Y-38 THEN T-T* I 

450 PLOT X,Yi 

460 FOR P-l TO 10IJ» PEEK <-14336 
): NEXT P 

470 C0L0R-14i PLOT X,Y: GOTO 420 

480 COLOR—14 : FOR 1-0 TO 39: HLIN 
0,39 AT II NEXT I 

490 CALL -936 

500 COLOR—0 : HLIN 9,11 AT 12: VLIN 
13,23 AT 9i PLOT 10,17i GOSUB 
400 

510 VLIN 14,23 AT 12i GOSUB 600 

520 VLIN 18,23 AT 14i PLOT 15,23 
: VLIN 18,30 AT 16i PLOT 15 
,30: GOSUB 600 

330 VLIN 15,23 AT 18I HLIN 17,19 
AT 17I GOSUB 600 

340 VLIN 18,23 AT 20I PLOT 21,19 
: GOSUB 600 

550 VLIN 18,23 AT 23: HLIN 24,25 

AT IB: HLIN 24,23 AT 20i PLOT 
25,I9i PLOT 24,23l PLOT 25, 

23I GOSUB 600 

560 VLIN 16,23 AT 27l VLIN 20,21 
AT 28I PLOT 29,19| PLOT 30 
,I 8 i PLOT 29,22i PLOT 30,23 
I GOSUB 600 

390 RETURN 

600 FOR P-l TO IOiJ- PEEK <-16336 
)- PEEK <16336)1 NEXT Pi RETURN 

610 GR I GOSUB I290I CALL -936 

620 PRINT i TAB 13: PRINT 'QUESTA E' 
UNA MOSCA.'I FOR P-l TO 1000 
: NEXT P 

630 COLOR—0 : PLOT 19,22i PLOT 18 
,21I PLOT 20,21: RETURN 
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640 FOR 1=0 TO 39I C0L0R-141 HLIN 
0,39 AT II NEXT I: CALL -936 
i PRINT I TAB 5i PRINT -QUESTA E 
' UNA MOSCA INGRANDITA! • 

650 FOR P=l TO 1500i NEXT P 
660 C0L0R=5lU=li FOR 1-16 TO 8 STEP 
-Il HLIN 20,22*U AT II HLIN 
I5-U.I8 AT IiU=U«ll NEXT I 
670 HLIN 23,32 AT 7i HLIN 27,33 
AT 6i HLIN 31,34 AT 5l HtIN 
5,15 AT 7i HLIN 4,11 AT 6l HLIN 
3,7 AT 5 

680 COLOR—2I FOR 1-19 TO 261 HLIN 
13,25 AT Ii NEXT I 
690 COLOR—8I FOR I-IÓ TO 26| HLIN 
16,22 AT II NEXT II UL1N 24 
,25 AT ISi WLIN 24,25 AT 23 
I HLIN 18,20 AT 27i ULIN 28 
,31 AT 19 

700 COLOR—4I HLIN 11,13 AT 2S| HLIN 
25,27 AT 25I ULIN 26,32 AT 
III ULIN 26,32 AT 27i ULIN 
31,32 AT 10i ULIN 31,32 AT 
9 

710 ULIN 31,32 AT 28I ULIN 31,32 
AT 29 

720 COLOR—OIU—lI FOR 1=21 TO 24 
: ULIN 15-U.16-U AT liU-U»l 
I NEXT II ULIN 1 1,12 AT 25 
730 U=l! FOR 1=14 TO 17i ULIN 10 
»U,11*U AT 1ìU=U+II NEXT II 
ULIN II,12 AT 13 

740 COLOR—OI FOR I-I7 TO 23i HLIN 
14,18 AT 11 HLIN 20,24 AT I: 

NEXT I 

750 COLOR—151 PLOT ló*R,2li PLOT 
22+R,21I FOR P-l TO 10001 NEXT 
P 

760 FOR TT-l T0 3 
770 FOR R—0 TO 2 
780 COLOR-15 

790 PLOT 16«R,21I PLOT 22*R,21 

800 FOR P-l TO 1001 NEXT P 
810 COLOR—O1 PLOT !6«R,2ll PLOT 
22*R,21I NEXT R 

820 FOR R—2 TO -2 STEP -Il COLOR¬ 
ISI PLOT I6*R,21 i PLOT 22*R, 

21I FOR P-l TO lOOl NEXT Pi 
COLOR—OI PLOT 16+R,21I PLOT 
22«R,2Ii NEXT R 

830 FOR R--2 TO Oi C0L0R=15i PLOT 
l6»R,2il PLOT 22*R,21I FOR 
P-l TO 100I NEXT P 
840 COLOR—Oi PLOT 16*R,21 i PLOT 
22*R,21I NEXT Ri 
850 NEXT TT 

860 COLOR—15I PLOT 16*R,2I| PLOT 
22tR,21I RETURN 

870 CALL -9361 OOSUB !290i PRINT 

880 TmB 9I PRINT "COSI' UOLA UNA MOS 
CA.- 

890 FOR P-l TO 15001 NEXT P 
900 X- RNO <10 >♦1 IY— RND <10 >•I 

910 AA- RND < 4 >♦1|8B— RND <-4>- 
1 


920 CC- RND I4)♦IiDD— RND <-4>- 

930 XNEU=AA*BBiYNEW-CC«DD 
940 COLOR—O 

950 PLOT X,YI PLOT X-l,Y-1I PLOT 
X«1,Y-l 

960 FOR P-l TO 10I NEXT P 
970 FOR P-I TO 5 
980 G- PEEK <-16336) 

990 NEXT P 
1000 COLOR—I4 

1010 PLOT X,YI PLOT X-l,Y-lI PLOT 
X*l,Y-l 
1020 L—L*1 

1030 X—X«XNEWiY—Y+YNEU 
1040 IF X<—I THEN X-lI 1F X>-36 THEN 
X—36 

1050 IF Y<—1 THEN Y-lI IF Y>-36 THEN 
Y—36 

1060 IF L-100 THEN RETURN I GOTO 
910 

10 70 CALL -9361 GOSUB 1290 
1080 TAB 11 PRINT * QUESTO E' UN MOOER 
NO SCHIACCIAMOSCHE"I PRINT 
•LE PADOLE LO MUOUONO E IL BOTTO 
NE?* 

1090 TAB 20 

1100 PRINT ’5 UOLTE PER INIZIARE" 

Ilio Z- POL (0)/6I FOR P-l TO 10 
I NEXT P 

1115 H-<255- PDL <l>>/6 
1120 IF Z >—35 THEN Z-35l IF H>-33 
THEN H—33 
I130 COLOR-PC 

1140 ULIN Z,Z*4 AT Hi ULIN 2,2* 4 
AT H«4 

1150 FOR P-l TO lOOl NEXT P 
1160 IF PEEK <-16286)>127 THEN GOSUB 
360 

1170 IF PEEK <-16287)>127 THEN GOSUB 
360 

1180 COLOR-14 

1190 ULIN Z,2*4 AT Hi ULIN Z,Z*4 
AT H"4 

1200 IF PEEK <-16286)>127 THEN MM- 
MM*l 

1210 IF PEEK <-16287)>127 THEN MM- 
MM* 1 

1220 IF MM>—5 THEN RETURN l GOTO 
1110 

1230 TEXT I CALL -9361 TAB 4ì UTAB 

lOi PRINT ‘HAI UCCISO •|T|* MOSC 
HE’l FOR P-l TO 25001 NEXT 
Pi PRINT 

1240 UTAB 151 PRINT • LA TUA EFFICE 
NZA E' STATA ■jT«1007<N«l>| 

"X" I PRINT I PRINT 
1250 IF T* 100/<N*I)>10 THEN PRINT 

• SEI UN OTTIMO SCH1ACC1AM0SCHE 
!"I PRINT 

1260 INPUT * ANCORA? <S/N>* 

,8*1 GR 

1270 IF B*-"S" THEN lOOl TEXT I END 

1280 POP ! GOTO 410 
1290 COLOR—14i FOR 1-0 TO 39I HLIN 
0,39 AT II NEXT II RETURN 




Vtoc del disco 



Dùco 


Eccovi un piccolo programma per controllare 
il contenuto della VTOC (Volume Table Of Con¬ 
tenta) di un dischetto DOS 3.3. Può essere uti¬ 
le a coloro che vogliono capire il meccanismo 
di funzionamento del DOS e anche a quelli che 
semplicemente vogliono vedere lo spazio an¬ 
cora libero sul dischetto e la sua distribuzione 
sulle varie tracce. 

La VTOC, lo ricordiamo, è l'indice di un dischet¬ 
to ed è un punto di ingresso obbligatorio per 
tutte le routine del DOS. 

Alla partenza viene dapprima mostrato il con¬ 


1 REM 

DISCO 


2 REM 

STAMPA DELLA VTOC DOS 3.3 


61010 CALL 45047: POKE 72,Oi TEXT 
I HOME i REM BUFFER=460I1 
61020 DEF FN P<X> - 256 * PEEK 
<X> ♦ PEEK <X ♦ 1) 

61030 DEF FN B<X> * X > 2 « INT 
<X > 2): REM 0»PARI,1«DISPA 
RI 

61037 REM 
INIZIO DELL VTOC 

61040 A* - " 9700<B3B8.B3FEM N9700 
.9737 NDB23G': FOR 1 « 1 TO 
LEN <A»> : POKE 511 + 1, ASC 
< MIO* <A*,I,1> > . 1281 NEXT 
1 POKE 72,0I CALL - 1441 PRINT 
: GET A*i HOME I REM ROUTINE 
S.H.LAM 
61049 REM 
TABELLA DEI SETTORI 


tenuto della VTOC. Premendo un secondo ta¬ 
sto appare l'occupazione dello spazio sulle varie 
tracce del dischetto: i settori liberi sono indi¬ 
cati con un segno ' I ' mentre quelli occupati 
col segno V. 

Nell'ultima riga appare infine il totale dei set¬ 
tori liberi, quello dei settori occupati ed il nu¬ 
mero complessivo dei settori del dischetto. 

La linea del programma sono numerate a pai 
lire dalla 6 1000 per poter essere eventualmen 
te inseriti come routine all'interno di un vostro 
programma. 


61050 A* = * 0123456789ABCDEF"iN » 

0 

61060 PRINT SPC< 3)A*I PRINT lA 
- 4606718 =■ 461 351S = 1 iT « 

4I GOSUB 612001 REM TRACCE 
0-17 

61070 VTAB li HTAB 24i PRINT A*i 
PRINT lA - 46139:8 » 46203i 
S - 21iT = 24: GOSUB 61200: REM 
TRACCE 18-34 

61080 HTAB T: PRINT ■1“SETTORE L 
1BERO* 

61090 PRINT : PRINT "0CCUPATI="5 
60 - N", LIBER1="N", TOTALE» 

560 ’ : END 

61199 REM 

ROUTINE DI STAMPA 

61200 FOR I = A TO B STEP 4:X - 

FN P<1>:X* » '■| FOR J « 1 TO 
16:X» » X* ♦ STR* ( FN B(X> 

> :N » N ♦ FN B<X>iX » INT 
<X / 2): NEXT : HTAB Si PRINT 
<1 - 460o7> / 4ji HTAB Tl PRINT 
X*i NEXT : RETURN 


Asta dell’oro 



Paddi-.' 


Questo è un gioco di strategia finanziaria per- | due persone. 
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Ciascun giocatore inizia con una capitale di 
120.000 $ che cercherà di aumentare com¬ 
prando all'asta dei lingotti d'oro. Per ogni asta 
vengno messi all'incanto 8 lingotti d'oro e cia¬ 
scun lingotto varrà, alla fine della partita, 
60.000$. Poiché il prezzo massimo che si pa¬ 
ga per ogni lingotto è di 60.000$ è evidente 
che bisogna cercare di comprare quanti più lin¬ 
gotti è possibile, Sfortunatamente non si pos¬ 
siede il capitale sufficiente per comprare tutti 
i lingotti soprattutto perché si è in gara contro 
l'avversario. 

Un orologio appare sullo schermo e la lancet¬ 
ta, partendo dal valore iniziale di 60.000$ scen- 


io REM ASTA D'ORO 

20 REM 

30 REM 

*10 REM 

50 GAME » 0 

60 JMAX » 8 

70 DIM CAPITHL<2> ,ASS£TS<2> ,BARS 
<2>iFLA6(2) 

80 FOR P = I TO 2 
90 ASSETS<P> = 01 BARS< P) » OiCAPl 
TAL< P> = 120000 


100 

FLAG< P> = 0 



no 

NEXT P 



120 

IF GAME > 0 THEN 

GOTO 160 

125 

GOSUB 2000 



130 

PRINT "ISTRUZIONI 

< S/N) ?" 

140 

GET I* 



150 

IF I* - "S" THEN 

GOSUB 960 

160 

HOME 1 VTAB 21 



170 

PI = 3.14159:R - 

80* HCOLOR- 


3 



180 

HGR 



190 

FOR A - 0 TO PI 

• 

2 STEP 0.2 

200 

IF A » 0 THEN HPLOT 140 ♦ R 


• SIN <A),R ♦ 

R 

• COS <A> 


t GOTO 220 



210 

HPLOT TO 140 ♦ 

R 

• SIN (A) 


,R ♦ R • COS <A) 


220 

NEXT A 



222 

R - R - 2 



224 

GOSUB 230 



226 

GOTO 460 



230 

REM 



240 

FOR C - 0 TO PI 

6 

• 

2 STEP PI , 

250 

HPLOT 140 * R • 

SIN <C>,R ♦ 


R • COS <C> TO 

140 ♦ <R - 1 


0 > • SIN tC),R 

♦ 

<R - IO) • 


COS <C> 



260 

NEXT C 



270 

REM 



2B0 

H - 101V » 10 



290 

X “ 137*Y - 15 



300 

GOSUB 1750 



310 

X - X ♦ 15 




de progressivamente verso lo zero. 

Il pnmo dei due giocatori che schiaccia il pro¬ 
prio bottone sulla paddle si aggiudica il lingot¬ 
to al prezzo indicato in quel momento dalla 
lancetta. Se premete il bottone troppo tardi il 
vostro avversano potrebbe aggiudicarsi il lingot¬ 
to ad un buon prezzo mentre se lo premete 
troppo presto potreste pagare più del neces¬ 
sario i vostri lingotti ed esaurire il vostro capi¬ 
tale iniziale. La migliore strategia è quella di 
premere il bottone poco prima che lo faccia 
il vostro avversario! 

Il gioco è in alta risoluzione grafica e si deve 
premere la barra spaziatrice prima di ogni asta, 


320 GOSUB 1590 
330 X - 90lY - 70 
340 GOSUB 1680 
350 X - X ♦ 15 
3ò0 GOSUB 1720 
370 X - 137IY - 125 
380 GOSUB 1650 
390 X - X ♦ 15 
400 GOSUB 1590 
410 X - 185iY = 70 
420 GOSUB 1620 
430 X - X ♦ 17 
440 GOSUB 1720 
•«5 RETURN 
450 REM 

460 FOR J - 1 TO JMAX 

470 FOR B - 0 TO 2 • PI STEP .05 

480 SOUND - PEEK < - 16336) - PEEK 
<„- 16336) 

490 FOR I » 3 TO 0 STEP - 3 
500 HCOLOR- I 

510 1F I - 0 THEN GOTO 560 
520 MPLOT 140,R TO 140 - R • SIN 
<B>,R - R • COS <B) 

530 NEXT 1,8 
535 PRINT 

540 PRINT "••• NESSUNA VENDITA • 

***■ 

550 GOTO 720 
SoO REM 

570 FOR P - 1 TO 2 

580 X - PEEK ( - 16288 ♦ P) 

590 IF X > 127 THEN GOTO 620 
600 NEXT P 
610 GOTO 520 
620 REM 

630 PRICE - INT <<2 • PI - B> » 

<6 / 2 • PI> ♦ 0.5) • 1012 
640 IF CAPITALIP> < PRICE THEN GOTO 
I 330 

650 PRINT NAME*<P>|" PAGATI ‘jPR 
ICEl* DOLLARI" 

660 CAPITALA) - CAPITAL(P) - PR1 
CE 

670 BARSCP) - BARS< P) ♦ 1 


9 




680 PRINT -RIMANENZE --,CAPITALI 
1 > ,CAPITAL<2) 

690 X - 0 

700 GOSUB 1110 

710 IF J « JPWX THEN GOTO 760 
720 INVERSE i PRINT • BARRA SPAZ 
1ATRICE PER ASTA N. -|J ♦ 1| 

• •I NORMAL 

730 GET N* 

740 HCOLOR- Oi HPLOT 140,R TO 14 
0 - R • SIN (B),R - R • COS 
<B> 

750 HCOLOR- 3| GOSUB 230 
760 NEXT J 
770 REM 

780 TEXT I HOME I VTAB 2l HTAB 1 
0 

782 PRINT -RIEPILOGO FINALE* 

784 PRINT 

786 FOR M - I TO 01 PRINT -••••• 

■ | I NEXT M 

708 HTAB ISI PRINT •» <X 1000)- 
790 FOR P - 1 TO 2 
792 PRINT NAME*<P>I PRINT 
794 HTAB 5l PRINT BARS(P>|* LING 
OTTI A 60.000.,60 • BARSI 
P> 

796 HTAB 5i PRINT "CASSA... ',C 
API TALIP) / 1000 

798 ASSETSIP) - 60 • 8 ARS<P) * CA 
PITALIP) / 1000 

800 HTAB 5| PRINT ‘TOTALE PATRIM 
ONI0. -.ASSETSIP) 

802 PRINT 
804 NEXT P 
860 PRINT I PRINT 
870 IF ASSETSU) > ASSETS<2> THEN 
PRINT NAME«<1>|* HA VINTO ! 

! ■I GOTO 910 

880 IF ASSETSU) - ASSETS<2> THEN 
PRINT • PAREGGIO ! ! ! - I GOTO 
910 

890 PRINT NAME*<2)|* HA VINTO ! !. 
900 PRINT 

910 PRINT -UN* ALTRA PARTITA? <S 
/N>- 

920 GAME - GAME ♦ I 
930 GET Y* 

932 IF Y» • - 8 - THEN GOTO 80 
934 TEXT I HOME i VTAB IO 
936 PRINT -PREMERE 'ESC' PER USC 
IRE* 

938 PRINT i PRINT * 0, UN TASTO 
PER RICOMINCIARE- 
940 GET H* 

942 IF H* « CHR* <27> THEN HOME 
I VTAB 101 PRINT -GRAZIE E A 
RRIVERDERC1"I END 
946 RUN 
960 REM 

970 HOME I PRINT I PRINT I PRINT 

980 PRINT -•• VENDITA ALL'ASTA D 
I LINGOTTI D'ORO ••- 
990 PRINT JMAX|" SARANNO I UNGO 
TTI OFFERTI, CIASCUNO STIMAT 
0 60 MILA DOLLARI.* 


1000 PRINT -IL PREZZO E' RAPPRES 
ENTATO DALLA L(V4CET-TA DELL' 
OROLOGIO- | 

1005 PRINT • CHE CALA DA 60 MILA 
DOLLARI FINO A ZERO DOLLARI 
■ 

1010 PRINT -IL PRIMO GIOCATORE A 
PREMERE IL PROPRIO PULSANTE 
ACQUI STA.• 

1013 PRINT -PREMERE TROPPO PREST 
0 SI PAGHERÀ' UN PREZZO ALTO 
■ | 

1020 PRINT -,TROPPO TARDI SARA' 
L'ALTRO GIOCATORE AD AGGI UDÌ 
CARSI L'ORO. • 

1030 PRINT -OCCORRE PREMERE IL P 
ROPRIO PULSANTE UN" 

1033 PRINT •ISTANTE PRIMA DELL'A 
WERSARI0. • 

1040 PRINT -CHI SUPERA IL PLAFON 
D PERDE IL GIOCO.- 
1030 PRINT -CIASCUN GIOCATORE PA 
RTE CON •(CAPITALI 1 ) / 1000| 

• MILA DOLLARI." 

1060 PRINT * BUON DIVERTI 

MENTO ! ! ! ! 

1070 PRINT 

1080 INVERSE I PRINT -PREMERE BA 
RRA SPAZIATRICE PER ASTA N. 

• 1J ♦ Il NORMAL 
1090 GET N* 

1100 RETURN 
1110 REM 

1120 FOR Q - I TO 0 STEP - I 
1130 YY = 160 - 20 * < BARS(P) - Q 
> - <CAPITAL<P) ♦ Q • PRICE) 

/ 3000 

1150 Y - 160 - 20 • BARS.CP) 

1160 XX - 130 ♦ 100 • <2 • P - 3) 

1162 H - 5lV - 3 

1163 AA - XX * 15lBB - 13 
1166 HCOLOR- 7 

1168 IF 0 - 1 THEN GOSUB 1920 

1169 HC - 5 - 5 • Ol HCOLOR- HC' 

1170 HPLOT XX ♦ I ,Y - 2 TO XX *• 

1 ,YY TO XX ♦ 21 ,YY TO XX ♦ 2 
1,Y - 2 TO XX ♦ I ,Y - 2 
1180 NEXT 0 
1190 FOR P - I TO 2 
12U0 HCOLOR» 7 

1210 HPLOT XX,V TO XX,Y ♦ 18 TO 

XX ♦ 20,Y ♦ 18 TO XX ♦ 20,Y TO 
XX,Y 

1220 NEXT P 

1230 X - XX ♦ 6IY - Y ♦ 6 

1240 H - 2lV - 4 

1230 GOSUB 1840 

1260 X - X ♦ 4 

1270 GOSUB 1390 

1280 X » X ♦ 4 

1290 GOSUB 1810 

1300 X - X ♦ 3 

1310 GOSUB 1880 

1320 RETURN 

I330 REM 

1340 GOSUB 1400 
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1350 PRINT -FONDI ESAURITI - MUL 
TA DI *10000- 

1360 CAPITAL(P) - CAPITAL<P> - 10 
000 

1370 IF FLAG< P) > 0 THEN GOTO 1 
460 

1380 FLAG< P> - FLAG< P> ♦ 1 
1390 GOTO 680 
1400 REM 
1410 S - - 16336 

1420 FOR M « l TO 25 
1430 SOUND - PEEK <S> - PEEK <S 
> - PEEK <S> - PEEK <S> 

1440 NEXT M 
1450 RETURN 
1460 REM 
1470 TEXT 

1480 FOR L - I TO 50I PRINT I NEXT 
L 

1490 PRINT NAME*<P>I PRINT ■ SEC 
ONDA OFFERTA CON MANCANZA DI 
FONDI ! “ 

1500 PRINT -QUESTA E' BANCAROTTA 

i i • 

1510 PRINT I PRINT -QUINDI,* 

1520 PRINT i PRINT NAME*<3 - P> 
1530 PRINT I PRINT -E' DICH1ARAT 
0 VINCITORE !!!• 

1540 PRINT I PRINT I PRINT 
1550 GAME - GAME * l 
1560 GOTO 910 
1580 REM 
1590 REM 

1600 HPLOT X,Y TO X — H,Y TO X - 
H,Y ♦ 2 • V TO X,Y ♦ 2 a V TO 
X Y 

1610 RETURN 
I620 REM 

1630 HPLOT X,Y TO X,Y ♦ 2 • V 
1640 RETURN 
1650 REM 

1660 HPLOT X - H.Y TO X,Y TO X - 

H, Y ♦ U TO X,Y ♦ V TO X,Y ♦ 

2 • V TO X - H,Y ♦ 2 • V 

1670 RETURN 
1680 REM 

1690 HPLOT X - H,Y TO X - H.Y ♦ 

I. 5 • V TO X,Y ♦ I.5 • V 
1700 HPLOT X - 0.5 • H,Y ♦ 0.5 • 

U TO X - 0.5 • H.Y ♦ 2 • U • 
1710 RETURN 
1720 REM 

1730 HPLOT X.Y TO X - H.Y TO X - 
H.Y * V TO X,Y * W TO X.Y ♦ 

2 • V TO X - H,Y ♦ 2 • V 

174U KtlUKN 


1820 HPLOT X - H.Y TO X - H,Y ♦ 

2 « V TO X, Y *2*0 
1830 RETURN 
1840 REM 

1850 HPLOT X.Y TO X - H.Y TO X - 
H,Y ♦ 2 • V TO X,Y ♦ 2 • V TO 
X, Y * V 

1860 HPLOT X • 0.7 • H,Y • V TO 
X - 0.4 • H,Y ♦ V 
1870 RETURN 
I880 REM 

1890 HPLOT X - 1.2 • H,Y TO X.Y TO 
X,Y * 2 • U TO X - 1.2 • H,Y 
♦ 2 • U 

1900 HPLOT X - 0.7 a H,Y TO X - 
0.7 • H,Y « 2 a V 
1910 RETURN 
I920 REM 

1930 HPLOT AA ,88 ♦ V / 2 TO AA ,8 
8 TO AA - H,BB TO AA - H,BB ♦ 

U TO AA.BB ♦ U TO AA.BB ♦ 2 a 
U TO AA - H,BB » 2 a U TO AA 
- H,BB ♦ I.5 a V 

1940 HPLOT AA-H/2.BB-V/2 
TO AA - H / 2,68 * 2.5 a U 
1950 RETURN 
2000 REM 

2002 TEXT i HOME I VTAB 2 
2004 PRINT -PER QUESTO GIOCO OCC 
ORRONO DUE GIOCATORI* 

2006 PRINT 

2020 PL* = • PRIMO SECONDO- 

2030 FOR U = I TO 2 

2040 PRINT -NOME •( MID» <PL*,1 ♦ 

7 a (W - J >,7)I - GIOCATORE I 
■ 

2050 INPUT NAME*CU> 

2070 NEXT W 

2080 PRINT -CIASCUN GIOCATORE US 
A UNA PADDLE. • 

2090 PRINT "PER L'ASSEGNAZ 1 ONÉ G 
IRARNE UNA" 

2100 FOR U - 0 TO I 
2110 PAO<U> - PDL <U> 

2120 1F ABS < PAD(W) - PDL <W>> 

> l THEN 0 - Wi GOTO 2150 
2130 NEXT U 
2140 GOTO 2100 

2150 PRINT I PRINT -LA PADDLE N. 
•|Q|- E' ASSEGNATA A * |NAME 
• <U « 1) 

2160 PRINT •<L'ALTRA PADDLE SARA 
' UTILIZZATA DA -|NAME*<2 - 
W> | “>“ 

2170 PRINT 1 PRINT 

2180 INVERSE ! PRINT * PREMERE U 

N TASTO PER CONTINUARE *1 NORMAL 


1750 REM 

1760 HPLOT X,Y TO X - H.Y TO X - 
H.Y ♦ 2 a u TO X.Y ♦ 2 a U TO 
X,Y ♦ V TO X - H.Y ♦ V 
1770 RETURN 
1780 REM 

1790 HPLOT X.Y ♦ V TO X - 2 • H, 

Y * V TO X - H.Y TO X - H.Y * 
2 a U 

1800 RETURN 
1810 REM 


2190 GET H* 

2200 HOME 1 VTAB 10 




Fusione Shape table 


Questo utilissimo programma vi servirà quan¬ 
do dovrete fondere due diverse shape (tabelle 
dì forme) senza dovere riscrivere tutte le infor¬ 
mazioni necessarie alla creazione della nuova 
tabella. 

All'inizio vi verrà richiesto il nome prima sha¬ 
pe table. 

Per vedere il contenuto del dischetto sarà suf¬ 
ficiente premere solo il tasto Return. Apparirà 
quindi il CATALOG del vostro dischetto e po¬ 
trete così vedere la denominazione esatta del¬ 
la vostra shape table. Darete quindi il nome 
della seconda Shape table. In pochi secondi ver¬ 
rà effettuata la fusione delle forme contenute 


nelle due tabelle e vi verrà richiesto il nome della 
tabella risultante. La nuova tabella verrà quindi 
memorizzata col nome che avrete dato. Se non 
volete memorizzare la tabella sarà sufficiente 
battere soltanto Return. Vi verrà quindi mostra 
to l'indirizzo di partenza della nuova tabella 
ed il vettore necessario a puntare la tabella 
stessa. Infine si potrà controllare il risultato della 
fusione delle due tabelle dando il numero del¬ 
la relativa shape (forma). 

Se dovrete fondere più tabelle iniziate a fon¬ 
dere le prime due e quindi la terza con il risul¬ 
tato della fusione delle prime due e così via fi¬ 
no all'ultima delle tabelle da trattare. 


100 HlMEMi 61 vi 
110 DI = 14384 
120 D* = CHR* <4> 

140 HOME 

150 LIST 130|A = - 912i CALL Al 

CALL Ai REM SCROLL 

140 PRINT -BATTI <RETURN> PER UÈ 
DERE IL 'CATALOG'“: PRINT 
170 REM CARICA LA SHAPE TABLE 1 

180 INPUT "NOME DELLA ST NI i*;S1 

* 

190 IF SI* » ” THEN PRINT CHR* 
<47-CATALOG-I GOTO 180 
200 PRINT D4-BL0A0-S1*-,A‘D1 
210 LI ■= PEEK (43616) ♦ PEEK <4 
3417) • 236 

220 REM CARICA LA SHAPE TABLE 2 

230 INPUT "NOME DELLA ST «2l*|S2 

• 

240 D2 “ DI ♦ LI 
230 PRINT D»-BL0AD*S2*’,A'D2 
2o0 L2 = PEEK (43616) ♦ PEEK (4 
3617) • 236 

270 REM CALCOLO DELL1NDIRI ZZO 

280 D3 - D2 ♦ L2 

290 REM ARRONTONOA D3l 


300 

03 - 

1NT <<03 4 

100) 

/ 100) 


100 





310 

NI - 

PEEK 

(01 > 



320 

N2 - 

PEEK 

< D2) 



330 

SI « 

PEEK 

< DI 4 

2) 4 

PEEK < 


DI 4 

3) • 

236 4 

DI 


340 

S2 - 

PEEK 

(02 4 

2) 4 

PEEK < 


D2 4 

3) • 

256 4 

02 


350 

S3 » 

D3 4 ; 

2 4 NI 

• 2 ■ 

t N2 • 2 


360 LS = DI «LI - SI 
370 S4 - S3 ♦ LS 

360 1F (NI ♦ N2> > 255 THEN PRINT 
•> 255,TROPPO LUNGA!"I END 
390 FLASH : PRINT i HTAB 13l PRINT 
■<< FUSIONE >>* « NORMAL 
400 REM COPIA DEGL! INDIRIZZI D 
I STI 
410 J = D3 

420 FOR I - DI ♦ 2 TO DI ♦ 2 ♦ N 
I • 2 STEP 2 
430 J - J » 2 

440 TEMP - PEEK <1> * PEEK (I * 

I > » 256 

450 TEMP - TEMP 4 N2 • 2 - SI 4 < 

DI 4 NI • 2 4 2) 

460 POKE J 4 |,TEMP / 256 

470 POKE J.TEMP - < PEEK <J ♦ 1> 

• 236) 

480 NEXT 1 

490 REM COPIA DELLE SHAPES DI 
STI 

300 FOR I » SI TO SI 4 LS - I 
310 POKE S3, PEEK <I)iS3 - S3 4 
I 

520 NEXT ! 

330 REM COPIA DEGLI INDIRIZZI D 

1 ST2 

540 J - D3 4 NI » 2 

550 FOR 1 = D2 4 2 TO D2 4 2 • N 

2 STEP 2 

540 TEMP » PEEK (I) 4 PEEK <1 4 
l> • 256 

570 TEMP “ TEMP 4 NI » 2 4 LS - S 
2 4 (D2 4 2 4 N2 • 2) 

560 J - J 4 2 

59(1 POKE J 4 I .TEMP / 256 
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600 POKE J.TEMP - < PEEK <J ♦ 1) 
« 256) 

610 NEXT 1 

620 REM COPIA DELLE SHAPES DI S 
T2 

630 POR I = S2 TO 02 ♦ L2 - 1 
640 POKE S4, PEEK <1>|S4 - S4 ♦ 

1 

650 NEXT I 

660 REM SALVAGUARDIA DI ST3 
670 L3 - S4 - D3 
600 POKE 03,NI ♦ N2 
690 CALL - 998i CALL - 958 
700 INPUT "NOME DELLA ST RISULTA 
NTE:"iS3* 

710 !F S3* = "■ THEN 730 
720 PRINT D*"BSAVE"S3**,A"D3*,L" 
L3 

730 PRINT 

740 PRINT "INDIRIZZO EFFETTIVO! 

" i 03 

750 PRINT "VETTORE I" 

760 POKE 233,D3 ✓ 256 
770 POKE 232,D3 - PEEK (233) » 
256 

780 PRINT "POKE 232,"; PEEK <232 

) 

790 PRINT 'POKE 233,"j PEEK <233 

) 

300 REM MOSTRA LE ST FUSE 
810 PRINT ! PRINT "VUOI VEDERE I 
L RISULTATO <S/N)?" ; 1 GET A* 

820 IF A* < > "S" THEN END 

830 PRINT 
840 POKE - lo30l,0 
850 HGR 


860 SCALE= 11 ROT= 0i HCOLOR- 7 
870 UTAB 21 : CALL - 958 
880 PRINT "NUMERO DELLA SHAPE <1 
-■NI ♦ N2* >’ìI INPUT S*| IF 
S* = ■" THEN TEXT I HOME I END 


890 HGR 


900 : 

5 - VAL <S*)i DRAW S AT 

140, 


80 



910 

GOTO 

870 


920 

REM 



LISTA DELLE VARIABILI 


930 

REM 

DI-INIZIO STI 


940 

REM 

LI-LUNGHEZZA STI 


950 

REM 

D2—INIZI0 ST2 


960 

REM 

L2—LUNGHEZZA ST2 


970 

REM 

D3-INIZI0 ST3 


980 

REM 

L3—LONGHEZZA ST3 


990 

REM 



1000 

REM 

NI=4 DELLE SHAPES 

IN S 


TI 



1010 

REM 

N2-H DELLE SHAPES 

IN S 


T2 



1020 

REM 

S3—INIZ10 DELLE SHAPES 


01 STI IN ST3 


1030 

REM 

S4—INIZI0 DELLE SHAPES 


DI ST2 IN ST3 


1040 

REM 

SI-INIZIO DELLE SHAPES 


IN STI 


1050 

REM 

S2=INIZIO DELLE SHAPES 


IN ST2 


1060 

REM 

LS=GRANDEZZA DEL 

BLOC 


CO DELLE ST DI STI 




II programma vi permette di calcolare il tempo 
che Intercorre tra due date a vostro piacere 
comprese tra gli anni 1801 e 2099. 

Dopo avere digitato la prima data nella forma 
mese/giorno/anno appare sulla destra dello 
schermo il calendario del mese e dell'anno a 
cui si riferisce la data e sulla parte sinistra il 
giorno della settimana ed il progressivo del gior 
no a partire dall'inizio di quell'anno. Se è sta¬ 
to impostato un anno bisestile appare anche 


10 TEXT i HOME :G* = CHR* <?)i PRINT 
■QUESTO PROGRAMMA CALCOLA IL 


questa indicazione. 

Si deve poi digitare la seconda data per la quale 
appaiono le stesse informazioni relative alla pri¬ 
ma data. Vengono quindi calcolati i giorni che 
intercorrono tra le due date espressi nella for¬ 
ma di anno (con decimali) e di giorni, 

La correttezza formale delle date viene con- 
trollata ogni volta e potrete usare questa rou¬ 
tine anche nei vostri programmi nei quali vie¬ 
ne richiesta l'introduzione di una data. 


NUMERO DI GIORNI TRA DUE 
DATE <1801-2099).“i PRINT 
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20 FOR T = l TO 2iV *= 3 ♦ 8 • <T 

■ 2>! VTAB Vi GOSUB 140 ! INVERSE 
I PRINT • DAI LA DATA N. •|T 
(• -i NORMAL I GOSUB 100I NEXT 
■ VTAB V ♦ 8: GOSUB 140 

90 OD = ABS (DD(2) - DD<1 > > I VTAB 
20I HTAB 11 NORMAL I PRINT • 
PASSANO I ' INT <(100 • <DD 
♦ .5)) / 365.244966) / 100” 

ANNI, 0 *DO- GIORNI.*1 VTAB 
21I GOSUB 140 

95 NORMAL i VTAB 231 HTAB I I CALL 

- 958I PRINT • <RETURN) C 

ÙNTINUA I “i PRINT • 0 < 

F> FINE. ”|l VTAB 

23I HTAB 27I GET A»i PRINT A 
«I IF Ai * CHR* (13) THEN RUN 

96 IF A* = "F” THEN END 

99 GOTO 95I 

100 RESTORE i FOR I * 1 TO I2i READ 

, MO*,LE*i VTAB I ♦ 18 - 6 • < 

1 > 6) I HTAB I * 12 « < 1 >6 
> - <1 >9)1 PRINT I|* •|MO* 

|I NEXT 

102 VTAB 3 ♦ Vi HTAB 11 CALL - 

868: PRINT *_(-MESE <1-12> 

•|l HTAB II INPUT ‘•|MO*iMO< 

T> = VAL <MO*>i IF MO<T> < 

1 OR M0<T> > 12 THEN PRINT 
G*ji GOTO 100 

105 RESTORE 1 FOR I * I TO MO(T) 

I READ MO*,LE*: NEXT i VTAB 

3 ♦ Vi HTAB li CALL - 958i PRINT 
MO*; :HT = POS <0> *2: IF M 
0<T> = 2 THEN LE* » ‘29-1 DATA 
GENNAIO,31 .FEBBRAI 0,28,MARZO 
,31.APRILE,30.MAGGIO,31 ,G1UG 
NO, 30 

106 DATA LUGLIO,31.AGOSTO,31,SE 
TTEMBRE,30.OTTOBRE,31.NOVEMB 
RE, 30, DICEMBRE, 31 

110 VTAB 3 ♦ Vi HTAB HTI CALL - 

863I PRINT •_(-GIORNO <I-*| 

LE*| ” > * | I HTAB HTi INPUT •■t 
DA* iDA<T) - VAL (DA*) I IF D 
A(T) < 1 OR DA<T) > VAL (LE 
•> THEN PRINT G*|l GOTO 100 

115 VTA8 3 ♦ Vi HTAB HTI PRINT D 
A(T> I " , "|IHT - POS (0) ♦ 2 

120 VTAB 3 • Vi HTAB HTi CALL - 

8681 PRINT *_(-ANNO <1801 

-2099)"|l HTAB HTI INPUT *”| 

YR*i IF LEN <YR»> - 2 THEN 
YR» - ”19* * YR* 

121 VTAb 3 • Vi HTAB HTI PRINT Y 
R*II CALL - 958I PRINT lYRl 
T> « VAL <YR*)| IF YR(T> < 

1801 OR YR(T) > 2099 THEN PRINT 
G*|1 GOTO 100 

122 LPlT) - Oi IF (YR(T) - INT < 

YR(T) / 4) • 4 > 0) ANO <YR< 

T) < > 1800 AND YR(T) < > 

1900) THEN LP(T) - 1 

123 IF MO(T) =* 2 AND NOT LP(T) THEN 
LE* = ”28” 


125 IF MO(T) = 2 AND DA(T) = 29 AND 
LP(T) « 0 THEN PRINT G*j! GOTO 
100 

127 DY(T> = DA(T> t IF MO(T) > I THEN 

RESTORE : FOR I « I TO MO(T 
> - li READ A*,LE|DY(T> - DY 
<T> ♦ LEI NEXT 

128 IF LP(T) - I AND MO(T) > 2 THEN 
DY(T) - OY(T) ♦ I 

130 SPEED= 255|YI - 1801iDI - Il 
LI - 0IY2 » YR(T)lD2 - DY(T) 

I GOSUB 5000 t DD< T > - DDi RESTORE 
I FOR 1 - I TO 241 READ A* I NEXT 
I FOR 1 - I TO I ♦ DD - INT 
(OD / 7) • 7l READ DA*I NEXT 
I VTAB V * 41 PRINT ■ ”|DA* 

! DATA GIOVEDÌ'.VENERDÌ',SAB 
ATO,DOMENICA,LUNES1'.MARTEOI 
'.MERCOLEDÌ' 

132 PRINT " PROGR.ANNOI”|DY(T)I 

IF LP(T) THEN PRINT “ <AN 
NO BIS.)” 

133 GOSUB oOOO 

135 RETURN 

I40 NORMAL I HTAB II FOR I « 1 TO 
40: PRINT ”-”|I NEXT I RETURN 


5000 NORMAL : IF Y1 = Y2 THEN DD 
“ D2 - DI I RETURN 
5055 DD = D2 * 365 ♦ LI - DI : IF 
Y2 - Y1 ♦ 1 THEN RETURN 
5060 OD = DD * 365 • <Y2 - Y1 - 1 
)i FOR I « Yl ♦ I TO Y2 - Ii 
IF (I - INT (I / 4) * 4 > 
0) OR I = 1900 THEN NEXT 

5062 YR = Ii FOR I = YR TO Y2 - I 

STEP 4: IF I < >1900 THEN 

DO - DD ♦ I 

5063 NEXT i RETURN I 


6000 VTAB V ♦ Ii HTAB I : PRINT * 
OATA N. ”|T|* I ”11 CALL -86 
8l HTAB 21i PRINT MO*|• *|YR 
(T)iDV - DD - DA(T) ♦ I tDI - 
DU - INT < DUI / 7) • 7 IDI - 
DI ♦ 5lDI - 01 - 7 • (DI > 7 
)IHT - DI • 3 ♦ 16I VTAB 2 * 
Vi Dm - I 

6010 HTAB HTi POKE 50,63 * 192 • 
(Da < > DA(T))i PRINT SPC< 

DA < 1(1 J | DA | i DA - DA • 1 l HT “ 
HT ♦ 3 - 21 • (HT - 39)I IF 
DA < VAL (LE») ♦ I THEN 601 
0 

60 30 RETURN 
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Dopo il successo ottenuto dalla prima proposta, ecco a disposizione 
del tuo TI-994/A un assortimento di altri splendidi programmi, 
tra i quali il richiestissimo EXTENDED BASIC; il MODULO ADVENTURE, 
che ti permetterà di vivere appassionanti avventure 
e l’EDITOR/ASSEMBLER, indispensabile per il definitivo salto 
di qualità del tuo computer. 

Ordina subito, per essere sicuro di ricevere i programmi al più presto. 



EXTENDED BASIC 

Cod. DTXNX01 - L. 270 000 

Finalmente disponibile il linguaggio di program¬ 
mazione compatibile con il BASIC TI-99/4A, con le 
seguenti aggiunte: righe multidichiarazioni, di¬ 
chiarazioni IF-THEN-ELSE. accesso diretto allo 
schermo, sottoprogrammi BASIC con variabili lo¬ 
cali. autoawiamento dei programmi su disco, faci¬ 
le controllo di fino a 28 sprite con concatenamento 
programmi BASIC, fusione codici, programmi 
protetti, dichiarazioni ON ERROR (Errore in atto) e 
funzioni logiche di Boole (AND, OR, NOT 1 E, O, 
NO. ecc.). 


Permette, con l'espansione della memoria, di pro¬ 
grammare in linguaggio macchina. 

MODULO AVVENTURA 

Cod. DTXRX01 - L. 70.000 

Si tratta del modulo di comando, da inserire nella 
consolle, che funge da interprete del linguaggio 
delle cassette sottodescritte 
Uno strumento indispensabile per arricchire la tua 
software-teca di nuove entusiasmanti avventure. 
Il modulo viene fornito con l'avventura "IL PIRA¬ 
TA". 

Configurazione richiesta: registratore a cassetta. 


Elenco delle "Avventure" che girano esclusivamente col MODULO AVVENTURA 


Nove programmi entusiasmanti, semplici da usare 
ma difficili da finire. 

All'inizio di ogni avventura viene proposta la situa¬ 
zione in cui ci si trova e viene posta la domanda: 
COSA DEVO FARE? Utilizzando gli oltre 200 voca¬ 
boli previsti dal vocabolario del computer, darai gli 
ordini conseguenti, per trovarti in situazioni sem¬ 
pre diverse fino a realizzare lo scopo del gioco, 
ogni volta differente per ogni titolo. 

Avventure che stimolano la tua capacità di ragio¬ 
nare in modo logico e che richiedono ore. e anche 
settimane, per concludersi. 


Savage Island Serles (Sene dell'Isola Selvaggia) 
Cod DTXMX35 - L. 30.000 

L'avventura si divide in due parti ed inizia ai margi¬ 
ni di una giungla impenetrabile. Mentre esplori 
l'isola, incontrerai delle creature insolite Dopo 
aver completato la prima parte, riceverai la parola 
d'ordine per iniziare la seconda parte, dove o di¬ 
venterai il più grande eroe al mondo o andrai in¬ 
contro a una fine rapida ed orribile. 


Voodoo Castle (Castello del Voodoo) 

Cod. DTXMX32 - L. 30.000 

Sei all'interno di una cappella di fronte ad una bara 
chiusa. Esplorando il castello, cercherai di racco¬ 
gliere le informazioni necessarie per liberare II 
Conte Cristo dalla terribile maledizione che i suoi 
nemici gli hanno fatto. 

Adventureland 

Cod. DTXMX01 - L. 30.000 

Ti trovi all'inizio della foresta di un mondo di fiaba 
Esplorandolo, potrai scoprire 13 diversi tesori co¬ 
me pure il luogo particolare dove riporli. 


Mystery Fon House (La casa del Mistero) 

Cod. DTXMX17 - L. 30.000 

Prima di procedere all'esplorazione, devi meditare 
su come fare per entrare nella Casa del Mistero. 
Una volta dentro, potrai vedere tutti gli angoli della 
casa, dove si nasconde un prezioso premio. 

The Count (Il conte) 

Cod. DTXMX26 - L. 30.000 

Ti svegli da un pisolino e ti trovi in un letto con un 
paletto da tenda in mano. Sta a te scoprire chi sei. 
cosa stai facendo in Transilvania e perché il posti¬ 
no ha consegnato un flacone di sangue! 


Strange Odyssey (Strana Odissea) 

Cod DTXMX24 - L. 30.000 

Inizia quando ti rendi conto di essere "naufragato" 
su un minuscolo pianeta e quindi devi riparare 
l'astronave per poter tornare a casa 
Mentre cerchi i pezzi di ricambio sul pianeta, tente¬ 
rai di scoprire i segreti di un'antica civiltà, racco¬ 
gliendo i tesori in cui ti imbatterai lungo la strada 


Pyramid of Doom (La Piramide del Destino) 

Cod DTXMX22 - L. 30.000 

L'avventura inizia In un deserto, nei pressi di uno 
stagno dal quale fuoriesce un palo. Grazie alle tue 
ricerche, troverai una piramide solo di recente sco¬ 
perta dalle sabbie mobili. 

Cercherai l'ingresso, raccoglierai tesori e cerche¬ 
rai di fuggire dalla piramide. 


The Golden Voyage 

Cod DTXMX10 - L. 30.000 

Comincerai con l’individuare il palazzo reale nella 
città persiana. Nel palazzo incontrerai l'anziano re 
al quale rimangono solo tre giorni di vita, a meno 
che non riuscirai a ringiovanirlo. 

Portando soltanto una borsa d'oro, salperai in ma¬ 
re alla ricerca della mitica fontana della g lovinezza 


Ghost Town (La Città Fantasma) 

Cod. DTXMX09 - L. 30.000 

Tutte le città fantasma sono misteriose, ma questa 
ha un fascino particolare: è abitata da fantasmi veri 
ed è piena di tesori. 

Esplora tutti i vecchi edifici per vedere quanti ne 
riuscirai a trovare. 




I programmi seguenti sono invece moduli Solld State Software, pronti da inserire: 


Music Maker (Il compositore di Musica) 

Cod. DTXQX01 - L. 42.000 - con istruzioni in italia¬ 
no 

Un ottimo programma sia per chi vuole avvicinarsi 
alla musica senza cognizioni di base, sia per chi 
deve studiare composizione direttamente sul pro¬ 
gramma e sia per chi utilizza il suono dal punto di 
vista tecnico ed ha interesse per tipo di frequenza, 
ecc.. Il programma prevede due opzioni: scrittura 
di partiture sul pentagramma: inserendo battuta 
per battuta è possibile scrivere partiture composte 
anche da tre voci e persino stamparne gli spartiti 
(In questo caso è necessaria una stampante o l’in¬ 
terfaccia RS232 o similare). L'altra opzione preve¬ 
de la realizzazione delle melodie prendendo in 
esame gli Hertz di una singola nota. 

Parsec 

Cod. DTXMX21 - L. 42.000 

PARSEC è la tua astronave, con la quale combatte¬ 
rai gli alieni ribelli e le loro navicelle, buttandole 
fuori rotta e emetterai un fuoco dal tuo laser che fa 
inaridire. Tenterai di sopravvivere alla "cintura" di 
asteroidi mortali. 

Per attivare le capacità sonore di questa cartuccia, 
puoi utilizzare lo Speech Synthesizer. 


Soccer (Gioco del Calcio) 

Cod. DTXMX23 - L. 37.000 

Inutile spendere troppe parole per questo apprez¬ 
zassimo programma. Cinque giocatori per squa¬ 
dra, con passaggi, tiri, intercettamenti, parate, ca¬ 
riche e molte altre tattiche del calcio. Potete persi¬ 
no avere il replay immediato di una rete, al rallenta¬ 
tore. 

TI Invaders (Invasori TI) 

Cod. DTXMX27 - L. 30.000 

Il mondo viene attaccato da numerose creature 
odiose provenienti dallo spazio. Devi fare affida¬ 
mento sulla tua agilità mentale e fisica per distrug¬ 
gere le creature multicolori con i missili a disposi¬ 
zione. 

Car Wars (Guerre di Auto) 

Cod. DTXMX06 - L. 30.000 

Se ti emozionano le corse automobilistiche, abbi¬ 
nate alla possibilità di battere l'avversario con 
astute manovre, ecco il programma che fa per te. 
Cimenta la tua velocità ed abilità contro il compu¬ 
ter mentre cerchi di avanzare sul circuito, evitando 
incidenti che farebbe saltare il tuo bolide fuori 
pista. 


E ora un'altra eccezionale proposta: 


Game Writer’s Pack 1 & 2 

Cod. DTXIX13 - L. 35.000 
(prezzo per le 2 confezioni) 


Fun - Pac (1-2-3) 

Cod. DTXMX36 - L. 27.000 
(prezzo per 3 cassette) 


Un'ottima realizzazione didattica divisa in due par¬ 
ti autonome ma complementari che insegna i prin¬ 
cipi (e li approfondisce) della programmazione 
BASIC, tramite la programmazione di videogiochi. 
Molto ben strutturata e comprensibile, utilizza un 
linguaggio semplice ed elementare. In ogni confe¬ 
zione è compresa una cassetta con i giochi di dui si 
parla nel corso della dissertazione. In totale 6 gio¬ 
chi per confezione. 

La trattazione è basata sul TI-BASIC anche se non 
disdegna l’EXTÉNDED BASIC. 


Tre cassette (non acquistabili separatamente), 
con 8 giochi complessivi ben strutturati ed avvin¬ 
centi. Dalla corsa dei cavalli al gioco del golf. Dal 
salvataggio di soienziati dalla contaminazione nu¬ 
cleare alla navicella Supernova, un ottimo gioco 
"adventure". 




Edltor/Assembler 

Cod. DTXAX01 - L. 180.000 

L'eccezionale programma che ti permette di pro¬ 
grammare in linguaggio di programmazione TSM 
9900 è dà accesso diretto a tutte le caratteristiche 
del sistema tra cui audio, voce, grafica ed I/O (En- 
trata/Uscila). oltre a mettere a disposizione la mas¬ 
sima rapidità grazie al microprocessore a 16 bit del 
computer. Le routine in linguaggio di programma¬ 
zione possono essere svolte come programmi in¬ 


dipendenti oppure collegate a programmi TI BA¬ 
SIC o TI BASIC ESTESO con l'impiego di una 
chiamata di sottoroutine. Oltre al modulo SSS, il 
programma comprende due floppy-disk (uno dei 
quali contiene il gioco TOMBSTONE CITY) e il 
Manuale Utente che dà tutte le informazioni sulla 
composizione del software. 
L'EDITOR/ASSEMBLER richiede i seguenti optio¬ 
nal: 







— Perlpheral Expanslon Box 

Cod. ETX0X01 - L. 320.000 

— 32 K Expanslon Card 

Cod. ETXOX02 - L. 340.000 


N. B. E possibile acquistare insieme gli optional 
ETXOXOI - ETXOX02 - ETXOX03 - ETXOX04, al 
prezzo complessivo di L 1.250.000 anziché L. 
1.580.000. In questo caso, il codice da indicare per 
l’acquisto dei 4 pezzi è ETXOX05 


- Drive Control Card 

Cod. ETXOX03 - L. 440.000 


— Floppy disk drive Box 

Cod ETXOX04 - L. 480.000 


e, Infine, freschi di stampa, escontatl del 10% sul prezzo di copertina: 


Paper Book - TI-99/4A (con cassetta) - 

editore J soli 

Cod ASOC007 - L. 16.200 

Una selezione dei migliori programmi tratti dal no¬ 
stro settimanale PAPER SOFT, scelti accurata¬ 
mente sulla base della loro originalità e fantasia. 


— 35 Programmi per il TI-99/A4 - 

editore MUZZIO 

Cod AMUC024 - L. 9.000 

Programmi divertenti e didattici, dal labirinto al 
tennis, dagli anagrammi alle conversioni metriche 
e tanti altri ancora 




INVIA II TAGLIANDO A: 


Spett. J.spft - Viale Restelli, 5 - 20124 Milano (MI) 
Tel. 02/6888228-683797-6880841/2/3/ 


Ordino il seguente software/libri per il TI-99/4A: 

cod . cod . cod . 

cod . cod . cod . 

cod . cod . cod . 

per un totale di L.-f L. 2.500 per contributo fisso di spese di spedizione. 

Scelgo la seguente modalità di pagamento: 

□ pagherò in contrassegno al postino 

□ allego assegno (o contanti) 

□ verso l'importo sul C.C.P. n. 19445204 
intestato a J.solt (allego ricevuta) 


Nome. 

Cognome 


n. 


Via .. 

CAP 


Citta 


Prov. 


J 

























Dattilografo 



Quello che avete sottomano dopo aver acqui¬ 
stato questo nuovo numero di Papersoft è un 
ottimo listato in Tl-Basic che vi darà modo di 
divertirvi affinando la vostra accuratezza nel¬ 
la digitazione dei listati. 

Dovrete infatti digitare la parola che verrà vi¬ 
sualizzata sul fusto di un razzo in modo da 
non scrivere stafalcioni e neppure di metterci 
tre anni per scrivere una parola; infatti ogni 
vostra risposta esatta aiuterà il razzo ad avvi¬ 
cinarsi sempre più alla sua zona d'orbita, men¬ 


90 rem **************** 

100 REM * DATTILOGRAFO * 

110 REM **************** 

115 REM TI-99 BASIC 

120 DIM AS(20) 

130 Y = 20 

140 DATA 1 5,MANIA,UN,COME,PAPA' , 
AVVISO,TRISTE,SCUGNIZZO,CASCATO, 
ALFALFA,SASSO,LASSO,CANI,PANI,CA 
RTE,MARTE 

150 DATA 16,HO,HA,GAS,RAS,FATA,F 
ATE,NESSO,SESSO,TE,THE,BONGIORNO 
,BUONGIORNO,GRIZZI,GRIZZLY,FRIZZ 
I,TRI ZZI 

160 DATA 17,CORTI,MORTI,SENO,COS 
ENO,FRESCO,CRESCO,TRESCA,GRASSO, 
GROSSO,FOSSO,MOSSO,NBA,WBA,FRATE 
,FRASE,TI-99/4A 

170 DATA 17,BEL,NEL,SEI,NEI,FRA, 
TRA,IN,IL,HAI,EHI,IO,ZIO,RAM,ROM 
,BIT,BOT,BIS 

180 DATA 20,DISK,DISC,PAPERSOFT, 
PAPERHARD,PIETRO,PIERO,BAUD,BAUD 
O, RS2 3,2, RS4 22, ASIA, ALPHA, JACKSON 
,BROWNE,A,E,1,0 

190 DATA 16,FOGELBERG,SZYMCZYC,J 
ACKSON,BROWNE,PER,NEL,SUL,COL,BU 
LLO,NULLO,IDAHO,WYOMING,JESSICA, 
LANGE,LANCE,MANCE 

200 DATA 18,CALMO,CALDO,BIRRA,MI 
RRA,BIONDA,TONDA,ONDA,HONDA,RETE 
,SETE,MI,SI,COLORE,DOLORE,BOTTO, 
COTTO,PASCAL,PASQUALE 
210 GOSUB 920 
220 GOSUB 1540 


tre un vostro errore di troppo potrebbe causa¬ 
re una terrificante esplosione. 

Disporrete di una scelta tra 7 diverse serie di 
parole: comunque, una volta stufi di provare 
sempre con le stesse parole, non dovrete che 
agire sulle linee Data in modo da inserire nuo¬ 
vi termini (quelli presenti attualmente varian¬ 
do dal mondo della grammatica, all'in formo¬ 
sa, alla musica), 

Buon divertimento! 


230 GOSUB 1690 

240 CALL KEY(0,KEY,STS) 

250 IF KEY<49 THEN 240 

260 IF KEY>56 THEN 240 

270 ON (KEY-48)GOTO 280,300,320, 

340,360,380,400,910 

280 RESTORE 140 

290 GOTO 410 

300 RESTORE 150 

310 GOTO 410 

320 RESTORE 160 

330 GOTO 410 

340 RESTORE 170 

350 GOTO 410 

360 RESTORE 180 

370 GOTO 410 

380 RESTORE 190 

390 GOTO 410 

400 RESTORE 200 

410 CALL CLEAR 

420 CALL COLOR(1,2,1) 

430 CALL SCREEN(8) 

440 GOSUB 1890 
450 READ N 
460 FOR 1=1 TO N 
470 READ A$(I) 

480 NEXT I 

490 SCORE=0 

500 RANDOMIZE 

510 FOR K=1 TO 10 

520 W=INT(N*RND)+1 

530 IF A$(W)= "0" THEN 520 

540 XC=24-K 

550 CALL SOUND(1500,-1,2) 

560 FOR J=1 TO LEN(A$(W)) 
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570 CALL HCHAR(XC,J+1 7, ASC (SEG$ ( 
A5(W),J,1))) 

580 NEXT J 
590 INPUT B$ 

600 IF B$=A$(W)THEN 630 
610 CALL SOUND(1000,-7,1) 

620 GOTO 650 

630 CALL SOUND(1000,-2,1) 

640 SCORE=SCORE+l 

650 IF KOI THEN 710 

660 CALL HCHAR(23,Y-4,98) 

670 CALL HCHAR(23,Y+4,98) 

680 CALL HCHAR(23,Y-3,99) 

690 CALL HCHAR(23,Y+3,100) 

700 GOTO 740 

710 IF K<>2 THEN 740 

720 CALL HCHAR(23,Y-4,99) 

730 CALL HCHAR123,Y+4,100) 

740 CALL HCHAR(23,Y-1,105,3) 

750 CALL SOUND(1,44000,30) 

760 CALL HCHAR(XC-1,Y-2,98,7) 

770 CALL HCHAR(XC-1,Y+5,32,15) 

780 CALL HCHAR(23,1,32,15) 

790 A$ (W) = " 0 " 

800 NEXT K 
810 CALL CLEAR 
820 FOR 1=2 TO 8 
830 CALL COLORI 1,2,1) 

840 NEXT I 
850 SC=10‘SCORE 

860 PRINT :::::"PUNTEGGIO: ";SC, 

”% DI ACCURATEZZA." 

870 PRINT : : :"<ENTER> PER CONTIN 
UARE." 

880 CALL KEY(0,KEY,ST) 

890 IF KEY013 THEN 880 
900 GOTO 230 
910 END 

920 CALL CLEAR 
930 CALL SCREEN(5) 

940 T=500 

950 CALL SOUND(T,880,3,698,8,294 
,10) 

960 PRINT : ::TAB(11);"DATTILOGRA 
FO" 

970 CALL CHAR(104,"FFFF00FFFF00F 
FFF" ) 

980 CALL SOUND(T,932,3,784,8,196 
,11) 

990 PRINT ::TAB(15);"PER" 

1000 CAL COLOR(10,16,6) 

1010 CALL COLOR(1 1 ,13,1) 

1020 CALL SOUND (T,78-i, 659,8,26 

2 , 10 ) 

1030 PRINT ::TAB(12);"PAPERSOFT" 
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1040 CALL CHAR(112,"00E0F8FEFFFF 

FFFF") 

1050 CALL SOUND(T,880,3,698,8,17 
5, 12) 

1060 CALL CHAR(113,"0000000080EO 
F8FE") 

1070 CALL CHAR(114,"80E0FCFFFFFC 
E08" ) 

1080 CALL CHAR(115,"FEF8E0 8" ) 
1090 CALL SOUND(T,698,3,587,8,23 

3.10) 

1100 PRINT ::::::: 

1110 PRINT : : : 

1120 CALL CHAR(116,"FFFFFFFFFEF8 
E") 

1130 CALL SOUND(T/2,784,3,165,10 

) 

1140 CALL CHAR(96,"80C0E0F8F8E0C 
08") 

1150 CALL SOUND(T/2,698,3,165,10 

) 

1160 CALL CHAR(97,"80C0E0F0F8FCF 
EFF") 

1170 CALL SOUND(T/2,659,3,277,10 

) 

1180 CALL CHAR(98,"FFFFFFFFFFFFF 
FFF") 

1190 CALL CHAR(117,"FFFFFFFFFFFF 
FFFF") 

1 200 CALL SOUND(T/2,784,3,277,10 

) 

1210 CALL CHAR(99,"FFFEFCF8F0E0C 
0 8 ") 

1 220 CALL SOUND (T*2,698,2,587,8, 
147,12) 

1230 CALL HCHAR(15,7,117,7) 

1240 CALL HCHAR(16,7,117,9) 

1250 CALL HCHAR(17,7,117,7) 

1260 CALL HCHAR(16,16,114) 

1270 CALL HCHAR(15,15,11 3) 

1280 CALL HCHAR(17,15,115) 

1290 CALL HCHAR(15,14,112) 

1300 CALL HCHAR(17,14,116) 

1310 CALL SOUND(T,466,4,165,10) 

1320 FOR XX=15 TO 17 
1330 CALL HCHAR(XX,1,104,6) 

1340 NEXT XX 

1350 CALL SOUND(T,440,3,175,10) 

1360 CALL COLOR(2,16,1) 

1370 FOR YY=18 TO 26 STEP 2 
1 380 CALL HCHAR(16,YY,42) 

1390 NEXT YY 

1400 CALL SOUND(T,698,3,440,8,29 

4.10) 

14'0 CALL HCHAR(16,28,49) 








1420 CALL 
1430 CALL 
•1 44 0 CALL 

33.10) 
1450 CALL 
01 " ) 

1460 CALL 
3F7F") 
1470 CALL 

262.10) 
1480 CALL 
77EFF") 
1490 CALL 


HCHAR(16,29,48,2) 
HCHAR(16,31 ,37) 

SOUND(T,7784,3,587,8,2 

CHAR(100,"7F3F1F0F0703 

CHAR(101,"000103070F1F 

SOUND(T/2,698,3,392,8, 

CHAR(102,"000018183C3C 

SOUND(T/2,659,2,262,10 


) 

1500 CALL CHAR(105,"DBDBDBDBDBDB 
DBDB") 

1510 CALL SOUND(4*T,698,2,440,8, 

175,10) 

1520 CALL SOUND(1,44000,30) 

1530 RETURN 
1540 CALL CLEAR 
1550 CALL SCREEN(7) 

1560 CALL COLOR(2,2,1) 

1570 PRINT "" 

1 580 PRINT : : :"LEGGERAI UNA PARO 


LA" 

1590 PRINT "NEL RAZZO." 

1600 PRINT :"DIGITALA E CONFERMA 
LA PRIMA CHE IL SUONO TERMINI." 


1610 PRINT :"SE TUTTO SARA'ESATT 

O," 

1620 PRINT "SENTIRAI UN ALTRO SU 
ONO;" 

1630 PRINT :"SE AVRAI SBAGLIATO, 


1640 PRINT "SARAI ABBATTUTO!"::: 


1650 PRINT "<ENTER> PER CONTINUA 
RE" 

1660 CALL KEY(0,KEY,ST) 

1670 IF KEY013 THEN 1660 
1680 RETURN 
1690 CALL CLEAR 
1700 CALL SCREEN(12) 


1 710 

1720 

1 730 

1740 

1 750 

O": 

1760 

1770 

1780 

1790 


CALL COLORII,2,12) 

FOR 1=2 TO 8 
CALL COLOR(1,1,12) 

NEXT I 

PRINT ::::"PREMENDO UN TAST 

PRINT " TRA -1- E -8-" 

PRINT " POTRAI DISPORRE": 
PRINT " DI 7 DIFFERENTI": 
PRINT " SERIE DI PAROLE.":: 


1800 PRINT " ** PREMENDO -8-" 
1810 PRINT " TERMINERAI 


1820 PRINT "FAI IA TUA SCELTA... 

•I • • 

1840 CALL SCREEN(5) 

1850 FOR 1=2 TO 8 
1 860 CALL COLORI 1,2,12) 

1870 NEXT I 
1880 RETURN 

1 890 CALL COLORO, 1 , 1 ) 

1900 CALL COLOR(10,1,1) 

1910 CALL VCHAR(12,Y,98,13) 

1920 CALL VCHAR(13,Y-1,98,12) 
1930 CALL VCHAR(13,Y+1,98,122) 

1 940 CALL VCHAR(14,Y — 2,98,11) 
1950 CALL VCHAR(14,Y+2,98,11) 
1960 CALL VCHAR(13,Y-2,101) 

1970 CALL VCHAR(13,Y+2,97) 

1980 CALL VCHAR(12,Y-1,101) 

1990 CALL VCHAR(12,Y+l,97) 

2000 CALL VCHAR(11,Y,102) 

2010 CALL VCHAR(22,Y-3,98,3) 

2020 CALL VCHAR(22,Y+3,98,3) 

2030 CALL VCHAR(23,Y-4,98,2) 

2040 CALL VCHAR(23,Y+4,98,2) 

205*0 CALL VCHAR ( 22 , Y - 4,1 01 ) 

2060 CALL VCHAR(22,Y+4,97) 

2070 CALL VCHAR(21,Y—3,101) 

2080 CALL VCHAR(21,Y+3,97) 

2090 CALL COLOR(9,7,1) 

2100 CALL COLOR(10,16,1) 

2110 RETURN 
2120 END 



Questo volta ho scelto per voi un semplice ma 


I suggestivo programma didattico creato perché 
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coloro che vedono le divisioni come qualcosa 
di ostico, possano ricredersi nella maniera mi¬ 
gliore. 

£ un programma in Basic che si rifà alla filoso¬ 
fia iniziale della Texas Instruments che lanciò 
il nostro TI-99 come ottimo sussidio didattico. 
Ebbene, dopo la digitazione potrete divertirvi 
ponendo voi stessi problemi al computer che 


100 rem **»»*»»»***»»«*»« 

110 REM * DIVISIONI * 

120 REM ******«*****••«»» 

125 REM TI-99 BASIC 

130 T=300 

140 CALL CLEAR 

150 CALL CHAR(96,"00007844444444 
78") 

160 CALL CHAR(97,"00003810101010 
38") 

170 CALL CHAR(98/"00004444444428 
10 ") 

180 PRINT TAB(6 );"P A P E R S 0 
F T" 

190 CALL CHAR(99,"00003844300844 
38") 

200 PRINT :TAB(7);"P R E S E N T 
A" 

210 CALL CHAR(100,"00007C4444444 
47C" ) 

220 CALL CHAR(101,"0000784444784 
844") 

230 PRINT :::::::TAB(6);"D IVI 
S I 0 N I":::::::: 

240 CALL CHAR(102,"3F10100808101 
02 ") 

250 CALL CHAR(103,"FF00784444444 
478") 

260 CALL COLOR(2,7,16) 

270 CALL HCHAR(14,7,42,19) 

280 CALL VCHAR115,7,42,3) 

290 CALL VCHAR(15,25,42,3) 

300 CALL HCHAR(18,7,42,19) 

310 CALL COLOR(2,16,7) 

320 CALL CHAR(104,"FF003810101 01 
038") 

330 CALL CHAR(105,"FF00444444442 
81 ") 

340 CALL COLOR(2,7,16) 

350 CALL CHAR(106,"FF007C4078404 
07C" ) 

360 CALL CHAR(H) 7,"FF00446454544 
C4 4 " ) 

370 CALL COLOR(2,16,7) 

/“ - 


li risolverà graficamente, oppure restare pas¬ 
sivi m attesa di rispondere alle domande del 
nostro TI. 

Tre sono le opzioni possibili: 
divisione con resto, 
divisione con decimale, 
conversione di frazioni in decimali. 

Buon divertimento! 


380 CALL CHAR(108,"0172FCFEFEFE7 
E3C") 

390 CALL CHAR(112,"384444544C3C" 
) 

400 CALL COLOR(2,7,16) 

410 CALL CHAR(113,"444444444438" 
) 

420 CALL CHAR(114,"7C444444447C" 

) 

430 CALL COLOR(2,16,7) 

440 CALL CHAR(115,"7C101010101") 

450 CALL CHAR(116,"381010101038" 

) 

460 CALL COLOR(2,7,16) 

470 CALL CHAR(117,"00007C4078404 
07C" ) 

480 CALL CHAR(118,"FF007C4444444 
47C") 

490 CALL COLOR(2,16,7) 

500 CALL CHAR(119,"0078444478484 
4") 

510 CALL CHAR(109,"000004OC1C387 
0E") 

520 CALL COLOR(2,7,16) 

530 CALL CHAR(110,"0103070E1C387 
") 

540 CALL CHAR(111,"80C0E070381C0 
E07" ) 

550 CALL COLOR(2,16,7) 

560 CALL CHAR(136,"80C0E0F0F8FCF 
EFF") 

570 CALL CHAR(137,"7F3FlFOF07030 
1 ") 

580 CALL COLOR(2,7,16) 

590 CALL CHAR(121,"0000000003070 
P0F") 

600 CALL COLOR (2,16,7) 

610 CALL CHAR(122,"030F3FFFFFFFF 
FFF" ) 

620 CALL CHAR(123,"C0F0FCFFFFFFF 
FFF") 

630 CALL COLOR(2,7,16) 

640 CALL CHAR(124,"0000000OC0E0F 
0F") 
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650 CALL CHARd 25, "1 F1F3F3F7F7FF 
FFF " ) 

660 CALL COLOR(2,16,7) 

670 CALL CHARd 26, "F8P8FCFCFEFEP 
FFF") 

680 CALL CHAR(127,"FFFF7F7F3F3F1 
FI F" ) 

690 CALL COLOR(2,7,16) 

700 CALL CHAR(128,"FFFFFEFEFCFCF 
8F8") 

710 CALL CHAR(129,"0F0F0703") 

720 CALL COLOR(2,16,7) 

730 CALL CHAR(130,"FFFFFFFFFF3F0 
F03 " ) 

740 CALL CHAR(131,"FFFFFFFFFFFCF 
OC") 

750 CALL COLOR(2,7,16) 

760 CALL CHAR(132,"F0F0E0C") 

770 CALL COLOR(2,2,1) 

780 CALL CLEAR 

790 CALL CHARd20,"FFFFFFFFFFFFF 
FFF") 

800 CALL COLORII 2,1,1) 

810 CALL COLOR(13,1,1) 

820 CALL SOUNDfT/2,262,5) 

830 CALL VCHAR(15,6,120,5) 

840 CALL SOUND(T/2,294,5) 

850 CALL HCHAR(15,4,121) 

860 CALL SOUND(T,330,4,131,10) 
870 CALL HCHAR(15,5,122) 


880 CALL HCHAR(15,7,123) 

890 CALL HCHAR(15,8,124) 

900 CALL SOUND(T,330,4,1 96,10) 
910 CALL HCHAR(16,4,125) 

920 -CALL HCHAR(16,5,120,3) 

930 CALL HCHAR(16,8,126) 

940 CALL SOUND(T/2,330,4) 

950 CALL HCHAR(17,4,120,5) 

960 CALL SOUND(T/2,392,4) 

970 CALL HCHAR(18,4,127) 

980 CALL SOUND(T,349,3,147,9) 
990 CALL HCHAR(18,5,120,3) 

1000 CALL HCHAR(18,8,128) 

1010 CALL HCHAR(19,4,129) 

1020 CALL HCHAR(19,5,130) 

1030 CALL SOUND(T,349,3,196,9) 
1040 CALL HCHAR(19,7,131) 

1050 CALL HCHAR(19,8,132) 

1060 CALL COLOR(12,7,1) 

1070 CALL COLOR(13,7,1) 

1080 CALL SOUND(T/2,349,3) 

1090 CALL COLOR(14,5,1) 

1 1 00 CALL COLORO, 5,1) 

1110 CALL SOUND(T/2,330,3) 

1120 CALL HCHAR(13,9,136) 

1130 CALL HCHAR(14,9,137) 

1140 CALL SOUND(T,294,3,175,9) 


1150 CALL HCHAR(14,10,136) 

1160 CALL HCHAR(15,10,137) 

1170 CALL HCHAR(15,11,136) 

1180 CALL HCHARfl6,11,137) 

1190 CALL SOUND(T/2,294,3,196,9) 

1200 CALL HCHAR(16,12,136) 

1210 CALL HCHAR(17,12,137) 

1220 CALL SOUND(T/2,330,3) 

1230 CALL HCHAR(17,13,136) 

1240 CALL SOUND(T/2,349,2) 

1250 CALL HCHAR(18,13,137) 

1260 CALL SOUND(T/2,370,2) 

1270 CALL HCHAR(18,14,136) 

1280 CALL SOUND(T,392,1,165,7) 
1290 CALL COLOR(10,7,1) 

1300 CALL HCHAR(18,15,109) 

1310 CALL HCHAR(19,14,110) 

1320 CALL HCHAR(19,15,111) 

1330 CALL SOUND(T,392,1,196,7) 
1340 CALL HCHAR(20,16,111) 

1350 CALL COLOR(11,5,1) 

1360 CALL SOUND(T/2,440,2) 

1370 CALL SOUND(T/2,494,2) 

1380 CALL SOUND(T, 523,1,165,7) 
1390 CALL SOUND(T,523,1,196,7) 
1400 CALL SOUND(T/2,587,2) 

1410 CALL CHARd 20, "7FBFDFEFF7FB 
FDFE") 

1420 CALL SOUND(T/2,523,2) 

1430 CALL SOUND(T,494,1,175,7) 

1 440 CALL SOUND (T,784,1,196,7) 
1450 CALL HCHAR(17,18,61) 

1460 CALL SOUND(T/2,587,1) 

1470 CALL SOUND(T/2,523,1) 

1480 CALL SOUND(T,494,0,175,6) 
1490 CALL HCHAR(13,22,108,7) 

1500 CALL SOUND(T,880,0,196,6) 
1510 CALL HCHAR(15,22,108,7) 

1520 CALL HCHAR(17,22,108,7) 

1530 CALL SOUND(T,494,0) 

1540 CALL HCHAR(19,22,108,7) 

1550 CALL HCHAR(21,22,108,4) 

1560 CALL SOUND(T*2,523,1,165,7, 
131,9) 

1570 CALL HCHAR(24,1,83) 

1580 CALL HCHAR(24,2,67) 

1590 PRINT "EGLI:" 

1600 PRINT :"1 DIVISIONI CON IL 
RESTO" 

1610 PRINT :"2 DIVISIONI CON I D 
ECIMALI" 

1620 PRINT :"3 CONVERS. FRAZIONI 
A DECIMA" 

1630 CALL HCHAR(23,31,76) 

1640 CALL HCHAR(23,32,73) 

1650 PRINT :"4 FINE PROGRAMMA" 
Ì66U CALL KEY(0,K,S) 
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1670 IF (K<49) + (K>52)THEN 1660 
1680 CALL CLEAR 

1690 ON K-48 GOTO 1830,1960,2070 
, 2330 

1700 DATA 96,97,98,97,99,100,101 
,117,102,103,104,105,104,103,106 
,107,103,118 

1710 DATA 112,113,114,115,114,32 


2000 INPUT "DIVISORE: ":D 
2010 IF D=0 THEN 780 
2020 INPUT "DIVIDENDO: ":N 
2030 PRINT :"QUOZIENTE =”;N/D 
2040 PRINT : : :"SCRIVI IL PROSSIM 
O PROBLEMA" 

2050 PRINT "OPPURE '0' PER FINIR 
E.": : : : : : : : : : : 

2060 GOTO 1970 


1720 CALL COLOR(10,5,1) 
1730 RESTORE 1700 
1740 FOR 1=5 TO 22 
1750 READ G 

1760 CALL HCHAR(19,I,G) 
1770 NEXT I 
1780 FOR 1=18 TO 23 
1790 READ G 

1800 CALL HCHAR(18,I,G) 


1810 

NEXT I 


1820 

RETURN 


1830 

PRINT "DIVISIONI 

CON IL RES 

TO" : 



1 840 

GOSUB 1720 


1 850 

CALL HCHAR(18,25, 

1 1 9) 

1 860 

CALL HCHAR(18,26, 

35,2) 

1 870 

INPUT "DIVISORE: 

" : D 

1 880 

IF D=0 THEN 780 


1 890 

INPUT "DIVIDENDO: 

" : N 

1 900 

C=INT(N/D) 


1910 

R=N-C*D 


1 920 

PRINT :"QUOZIENTE 

=";C;" R" 

;R 

1930 

PRINT : : :"SCRIVI 

IL PROSSIM 

O PROBLEMA" 


1 940 

PRINT "OPPURE •0• 

PER FINIR 

E.": : 



1 950 

GOTO 1840 


1960 

PRINT "DIVISIONI 

CON I DECI 

MALI 1 




1970 GOSUB 1720 
1 980 CALL 1 HCHAR(1 8,23,46) 
1990 CALL HCHAR(18,24,35,3) 


2070 PRINT :"CONVERS. FRAZIONI A 
DECIMALI":::::::::::: 

2080 CALL CHAR(120,"FFFFFFFFFFFF 
FFFF") 

2090 CALL CHAR(138,"000000FFFF") 

2100 CALL HCHAR(16,8,120,4) 

2110 CALL HCHAR(17,8,120,4) 

2120 CA’LL HCHAR (18,7,138,6) 

2130 CALL HCHAR(19,8,120,4) 

2140 CALL HCHAR(20,8,120,4) 

2150 CALL HCHAR(21,8,120,4) 

2160 CALL HCHAR(18,15,61) 

2170 CALL HCHAR(18,18,46) 

2180 CALL COLOR(10,13,13) 

2190 CALL HCHAR(18,20,108) 

2200 CALL HCHAR(18,22,108) 

2210 CALL HCHAR(18,24,108) 

2220 PRINT ::: 

2230 INPUT "NUMERATORE: ":N 

2240 IF N=0 THEN 780 

2250 INPUT "DENOMINATORE: ":D 

2260 IF DOO THEN 2290 

2270 PRINT "NON POSSO DIVIDERE P 

ER ZERO!":: 

2280 GOTO 2250 
2290 PRINT :N;"/";D;"*";N/D 
2300 PRINT : : :"SCRIVI IL PROSSIM 
O PROBLEMA" 

2310 PRINT "OPPURE BATTI '0' PER 
FINIRE." 

2320 GOTO 2220 
2330 END 



Non si tratta dell'ennesima versione di quel- 
l'appassionante gioco d'azzardo che si cela die¬ 
tro il mondo delle corse equine; nonostante ciò 
il tema è quello suscitato, anche se il modo di 


svilupparlo è uno dei più verosimili che abbia 
finora incontrato. 

Dopo aver chiesto quanti scommettitori si con¬ 
tendono la posta, il vostro TI passerà ad in- 

















cassare le puntate non pnma di avervi mostrato 
le quote prima della vostra puntata; dopodi¬ 
ché. previa visualizzazione delle variazioni ap¬ 
portate alle quote dalla vostre scommesse, avrà 
inizio la corsa vera è propria con tanto di se¬ 
gnalazione sulle condizioni della pista. 

A questo punto potrete soltanto raccomanda¬ 
re il vostro denaro al Protettore degli s commet- 


100 DIM NOTE(26),DUR(26) 

110 FOR 1=1 TO 26 :: READ NOTE(I 

)<DUR(I):: NEXT I 

120 DATA 294,30,392,30,494,30,58 

7,45,587,15,587,30,494,45,494,15 

,494,30 

130 DATA 392,30,494,30,392,30,29 
4,90,294,30,392,30,494,30,587,45 
,587,15,587,30 

140 DATA 494,45,494,15,494,30,29 

4,30,294,30,294,30,392,90 

150 IMAGE HORSE 44 : 9 * » TO 1 

160 A$="000001710F0F0F1820408000 

0000000000589C3FF8E0C07844221100 

00000000" 

170 B$="00000171170F0F0E04020100 
0000000000589C3FF8F8F03010107000 
00000000" 

1 80 C$="OOOOOOOOOOCOBFBF3Fl01901 
000000OD0000046371FDE3E1C3C54D23 
00000000" 

190 CALL CHAR(128,A$) 

200 CALL CHAR(132,B$ ) 

210 CALL CHAR(136,C$) 

220 CALL CLEAR :: CALL SCREEN(3) 
:: DISPLAY AT(12,10)IPPODROMO" 

230 GOSUB 990 :: FOR DELAY=1 TO 
300 : : NEXT DELAY 
240 CALL CLEAR :: CALL SCREEN(5) 
:: K = 0 

250 FOR 1=0 TO 14 :: CALL COLOR( 
1,16,1): : NEXT i 

260 DISPLAY AT(8,4):"NUMERO GIOC 
ATORI ?" 

270 ACCEPT AT(8,25)SIZE(1)VALIDA 
TE(DIGIT)BEEP:N :: IF (N-O)THEN 
CALL HCHAR(8,28,32,2):: GOTO 270 

280 FOR 1=1 TO N :: CASH(I)=500 
: : NEXT I 

290 DISPLAY AT(10,1):"CIASCUNO D 
ISPORRÀ' DI $500" 

300 DISPLAY AT(14,2):"I CAVALLI 
SONO NUMERATI DAL" 


titon. dal momento che la corsa si svolgerà sen¬ 
za possibilità di manomissione, e non vi reste¬ 
rà che prendere atto delle decisioni del giudice 
di corsa che, dopo aver esaminato il fotofinish, 
vi farà sapere se la vostra somma sarà ormai 
irreparabile o se. insperatamente, avrete vin¬ 
to abbastanza da comprarvi l'espansione del¬ 
le periferiche. 


310 DISPLAY AT(16,8):"BASSO VERS 
O L'ALTO." 

320 FOR D=1 TO 600 SS NEXT D 
330 K=K+1 

340 IF (K>5)+(FL=1)THEN FL=0 :: 
GOTO 1460 

350 FOR 1=1 TO 5 :: AD(I),AM(I)= 
0 : : NEXT I 

360 GOSUB 1000 1COND. PISTA 
370 GOSUB 1080 1DETERM. QUOTE 
380 GOSUB 1150 ! ACCREDITA PUNTAT 
E 

390 CALL CLEAR 

400 GOSUB 560 ! DISEGNA PISTA 
410 DISPLAY AT(4,7):"IPPODROMO S 
.SIRO" 

420 PAT=128 : : PAT2 = 132 :: PAT3 = 
136 :: X=4 :: CALL SCREEN(8) 

430 CALL MAGNIFY(3) 

440 CALL SPRITElll,128,7,156,5,9 

2,128,16,148,5,43,128,5,140,5,94 

,128,2,132,5,15,128,14,124,5) 

450 GOSUB 990 1MUSICA 

460 CALL MOTION(#1,0,SPl,*2,0,SP 

2,» 3,0,SP3,4 4,0,SP4,4 5,0,SP5) 

470 CALL POSITION(#1,Yl,Xl , 9 2,Y2 
,X2,»3,Y3,X3,I4,Y4,X4,#5,Y5,X5) 

480 IF X2>330 OR Xl>230 THEN 810 

490 IF X4>230 OR X3>230 THEN 810 

500 IF X5>230 THEN 810 

510 PAT*PAT+X :: PAT2=PAT2-X :: 

X=-X 

520 CALL PATTERN(41,PAT,42,PAT2, 

4 3,PAT,44,PAT2,45,PAT) 

530 FOR DELAY = 1 TO 8 : : NEXT DEL 
AY 

540 GOSUB 740 1MOVIMENTO 
550 GOTO 460 

560 CALL CHAR(97,"FF")'DISEGNO C 
ORSIA 

570 CALL CHAR(96,"FFFFFF66666666 
66 ") 
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580 CALL CHAR(120,"FFFFFFFFFFFFF 
FFF" ) 

590 FOR 1=9 TO 12 :: CALL COLOR( 

1.1.1) :: NEXT I 

600 CALL CHAR(104,"8080008080008 
080") 

610 CALL CHARd 12 , "0101030307CFE 
FFF") 

620 CALL CHAR(114,"C0F0F8FCFCFFF 
FFF" ) 

630 CALL CHAR(113,"FFFFFFFFFFFFF 
FFF") 

640 CALL HCHAR(15,1,96,32) 

650 FOR 1=16 TO 22 :: CALL HCHAR 

(1, 1 ,1 20,32): : NEXT I 

660 CALL HCHAR(23,1,97,32) 

Sto CALL VCHAR(16,31,104,7) 

680 FOR 1=11 TO 14 :: CALL HCHAR 
(1,1,113,32):: NEXT I 
690 FOR 1=1 TO 31 STEP 2 :: CALL 
HCHAR(10,1,112):: NEXT I 
700 FOR 1=2 TO 32 STEP 2 :: CALL 
HCHAR(10,1,114):: NEXT I 
710 IF T<5 TIIEN CALL COLOR(9,2,l 

2.10.16.12.11.13.1.12.12.1) 

720 IF T=5 THEN CALL COLORO,2,4 
,10,16,4,11 ,13,1 ,12,4,1) 

730 RETURN 

740 RANDOMIZE ! VELOCITA' CAVALLI 

750 SPI=INT(5*RND+AD(1)) 

760 SP2 = INT(5*RND+AD(2) ) 

?70 SP3=INT(5*RND+AD(3) ) 

78U SP4 = INT(5*RND+AD(4 ) ) 

790 SP5=INT(5*RND+AD(5) ) 

800 RETURN 

810 ATEM=MAX(MAX(XI,X2),MAX(X3,X 

4) ) 

820 A=MAX(ATEM,X5) 

830 IF A=Xl THEN WIN=1 :: GOTO 8 
70 

840 IF A=X2 THEN WIN=2 :: GOTO 8 
70 

850 IF A=X5 THEN WIN=5 :: GOTO 8 
70 

860 IF A=X3 THEN WIN=3 ELSE WIN= 
4 

870 FOR 1=1 TO 5 
880 IF I=WIN THEN 900 
890 CALL DELSPRITE(#I) 

900 NEXT I 

910 CALL MAGNIFY(4) 

920 CALL MOTION(IWIN,0,0): : CALL 
LOCATE(#WIN,150,124):: CALL PAT 
TERN(#WIN,PAT3) : : FOR DELAY=1 TO 
100 :: NEXT DELAY 
930 DISPLAY AT(4,7):"VINCE IL #" 

;win 


940 CALL SOUND(1000,392,5) 

950 CALL SOUND(1000,332,5) 

960 CALL SOUND (1000,262,5) 

970 GOSUB 1 34 0 ! PAGAMENTI 
980 GOTO 330 

990 FOR 1=1 TO 26 :: CALL SOUND( 
DUR(I)*3.5,NOTE(I),5): : CALL SOU 
NO(30,40000,5) : : NEXT I :: RETUR 
N 

1000 RANDOMIZE 1COND.PISTA 
1010 T»INT(5 * RND)+1 


1020 TRS(l)«"VELOCE" :: TR$(2)=" 
BUONA" :: TR$ ( 3)«"LENTA" :: TR$( 
4) "FANGOSA" :: TR$(5)«"ERBOSA" 

1030 AD(T)=.4 :: AM(T)=500 
1040 CALL CLEAR :: CALL SCREEN(8 
) 

1050 FOR 1=0 TO 8 :: CALL COLORI 

1,2,1):: NEXT I 

1060 DISPLAY AT(8,12):"CORSA";K 

1070 DISPLAY AT(12,3):"CONDIZION 
I PISTA: " ;TR$(T): : FOR DELAY=1 
TO 300 : : NEXT DELAY : : RETURN 

1080 RANDOMIZE ! QUOTE INIZIALI 
1090 MT=0 

1100 FOR 1=1 TO 5 :: M(I)=INT(10 
00*RND)+0.1+AM(I): : MT=MT+M(I): : 
NEXT I 

1110 FOR 1=1 TO 5 :: OD(I)=INT(M 
T/M(I)) 

1120 IF OD(I)>20 THEN OD(I)=20 
1130 NEXT I 
li 40 RETURN 

1150 CALL CLEAR :: CALL SCREEN(7 
)SPIAZZAMENTO SCOMMESSE 

1160 DISPLAY AT(1 -(N<5),9):"QUOT 
E ATTUALI" 

1170 FOR 1=1 TO 5 :: DISPLAY AT( 
1+1-(N<5)*2,3):USING 150:1,00(1) 

: : NEXT I 

1180 FOR 1=2 TO 2*N STEP 2 
1190 IF CASH(1/2)<1 THEN AMT(I/2 
)=0 :: GOTO 1270 

1200 DISPLAY AT(5+I+(9-N)/2,3):" 
GIOCATORE"; 1/2;"QUALE CAVALLO?" 

1210 ACCEPT AT(6+1+(9-N)/2,26)VA 
LIDATE(DIGIT)BEEP SIZE(1):H(1/2) 

1220 IF H (1/2)>5 THEN CALL HCHAR 
(5+I + (9-N)/2,29,32,3): : GOTO 121 
0 
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1230 DISPLAY AT(6+1 + (9-N)/2,3) : " 
QUANTO?" :: ACCEPT AT(6+1+(9-N)/ 
2,24)SIZE(3)VALICATE(DIGIT)BEEP: 
AMT(I/2) 

1240 IF AMT(1/2)>CASH(1/2)THEN 1 
230 

1250 M(H(I/2))=M(H(I/2))+AMT(1/2 

) 

1260 MT=MT+AMT(I/2) 

1270 NEXT I 

1 280 CALL CLEAR :: CALL SCREF.N(1 
4) 

1290 DISPLAY AT(5,11):"NUOVE QUO 
TE" 

1300 POR 1=1 TO 5 :: OD(I)=INT(M 
T/M(I)) 

1310 IF OD(I)>20 THEN OD(I)=20 
1320 DISPLAY AT(7+1*2,4):USING 1 
50:1,OD(I) : : NEXT I 
1330 FOR DELAY=1 TO 1000 :: NEXT 
DELAY : : RETURN 
1340 FOR 1=1 TO N 

1350 IF H(I)=WIN THEN CASH(I)=CA 
SH(I)+INT(AMT(I)* I NT(MT/M(WIN))) 

1 360 IF H ( I ) OWIN THEN CASH ( I ) =C 
ASH(I)-AMT(I) 

1370 NEXT I 


1 380 CALL DELSPRITE(ALL): : CALL 
CLEAR 

1390 DISPLAY AT(3,11):"RIEPILOGO 

H 

1400 P$="CORSE" :: IF K=1 THEN P 
$="CORSA" 

1410 DISPLAY AT(5,9):"DOPO";K;PS 

1420 FOR 1=1 TO N :: DISPLAY AT( 
8+1,3)sUSING 1510:1,CASH(I):: NE 
XT I 

1430 FOR DELAY»! TO 1500 :: NEXT 
DELAY 

1440 FL=1 :: FOR 1 = 1 TO N : : IF 
CASH(I)>0 THEN I=N :: FL=0 
1450 NEXT I :: RETURN 
1 460 CALL DELSPRITE(ALL): : CALL 
CLEAR :: CALL SCREEN(16) 

1470 DISPLAY AT(12,10):"GAME OVE 
R" :: DISPLAY AT(21,3)PREMI 1 
PER RITENTARE" :: DISPLAY AT(23, 
4):"PREMI 2 PER FINIRE" 

1480 CALL KEY(0,KEY,S) 

1490 IF KEY=49 THEN 240 
1 500 IF KEYO50 THEN'1480 
1510 IMAGE PLAYER *#: $#*#### 

1520 CALL CLEAR :: END 


Missione su Zircon 


MSX 


Gli agenti del pianeta Zircon vi hanno rubato 
la formula di un componente essenziale per la 
vostra sicurezza. La missione consiste nel diri¬ 
gersi verso Zircon con una grande astronave 
e lanciare delle piccole navicelle con a bordo 
dei vostri agenti pronti a tutto pur di recupe¬ 
rare i preziosi documenti. Voi dovrete lanciare 
quante più possibili navicelle facendo attenzio¬ 
ne alle astronavi nemiche che tenteranno di 
sabotare la vostra missione. Usate i tasti cur¬ 
sore per dirigere l'astronave e la barra-spazio 
per lanciare le navicelle. Il programma contie¬ 
ne inoltre una routine in linguaggio macchina 


per toserò// dello schermo. 

Se desiderate modificare la velocità della navi¬ 
cella madre potete alterare la linea 45; se in¬ 
vece volete aumentare la velocità dello scroti 
dovete modificare la linea 160. Cambiando il 
valore della variabile TL contenuta nella linea 
160 potrete aumentare o diminuire il tempo 
della partita. Una modifica un poco più com¬ 
plessa potrebbe consistere nell'aumenlare il nu¬ 
mero delle astronavi nemiche rendendo più 
complesso il gioco: in questo caso dovreste ope¬ 
rare soprattutto nelle linee 300-320. 
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1 REM MISSIONE SU Z1RC0N 
10 6ÙSUB600O0 

15 SCREEN1,3 KEVÙFF PRINT* MISSIONE S 
U 21RC0N* FORI“11012 PRINT MEXT 
20 FÙR1*1T032 REAPO h » »m » »CMR* ( 0 > NEXT ■ S 
PRITE«tOi*AI a»*** 

25 FÙRI»1T08 REAPO A»*A«*CMR»<0> NEXT SP 
RITE » < t > *A* 

30 FORIM072TO1231 REnDO VPOKE1.0 NEXT 
35 FuR1 =bo35u'T06Ù401 1 REAPO P0KEI.0 NEX 
T 

40 POKEt034oI.224 P0 KEb 0347I,24 PGKEou34 
8! ,255 PUKEO034S 1 ,2t PEFUSR2-60350' 

45 PUKE59999! .4 P0KE5999Ó1,15 ;PEFUSR-ÓOO 
00' 

50 PuTSPRITÉ0,<112.55).llPRINT*Pr*ui un 
tatto u*r iniziar** 

55 IFINKEYI**"TH£ND*USR2iB> FORI*1X050 N 
EXT P*RNPil> 60T055 

100 COLOR 15,1.1 CLS VP0KE8288,145 «PONE 

8209.145 VP0KE8210,145 PUTSPRITEO,(114,8 
0), 11 

105 VP0KE6753.137 VP0KE6768,144 VPOKEbTó 

9.145 VP0K£o773,134 

110 VPÙKE6784,136 VPGKE6785,134 VP0KE678 
6,138 VPGKE6787,13ó VPOK£6799,139 VPOKEó 

800.134 0P0KE6801,134 VPÙKE6882.141 VPOK 
Eo805,134 0P0KE6813,144 UP0KE6614,145 
115 VPÙKEo817,134 VP0KE6819,137 VP0XE682 
0,140.VPOKEo822,136 VP0KE6823,148 VP0KE6 

824.149 VP0KE6825,148 : VPÙKE6826,149 VPOK 
Eo827.136 VP0 KEb 829,137 VP0KE6830,140 VP 
0KE6832,142 VP0KEt>8 33.14 3 VP0KE6837.134 
VP0KE6838,136 

120 VP0KE6839,148 VP0KEÓB46.149 : VP0KE684 
1,148 VP0KEBB42,149 VPÙKE6643,138 VPOKEó 
845,146 VPGKE6846,147 

125 VPÙK£b849,134 VP0KE6850,139-VP0KE685 

1.134 VP0KE6652,134:VP0KEc853,141 VP0KE6 

855.150 VP0KE6856,151 VP0KEo857.150 VPOK 
£6858,151 VP0KEB8t.fl.139 VP0KE6661,134 VP 
0KE666 2,134 VP0KE6863,141 VPGKEo864,134 ■ 
VP0KE6865,134 

13fl VPÙKE6806 .144 VP0KE68b7,14 5 :VPOKE 680 

9.134 VP0KE6871,150 VP0KEb8.72,151 VPOKEó 

873.150 VP0KEb 874.151 VPÙKE6677,144 VPOK 
Eb878.145 

135 VP0KE6881,134 VP0KE6883,142 VP0KE688 
4,143 VP0KE6887,150 VPOKE0888,151 VPOKEó 

889.150 VP0KE6890.151 VP0K£o392,139 VPOK 
EBè93,15fl VP0KE6894,134 VP0KE6895.141 VP 
0KE6896.134,VP0KE6897,134 

140 VP0KE6898,142 VP0KEo899,143 VP0KEB90 

1.134 VPOKEsYVJ,150 VP0KE6984,151 VPOKEó 
9fl5,150 VP0KE6906,151 VP0KEó*9fl9,146 VPOK 
£ 6910,147 

145 F0RI.617bT0o367 I FRMPU > <. 2THENVP0KE 

1,153 

150 NEXT 

155 GOSUBlOOfl PUTSPRITE1,<255.108),13 
loò TIMfc«0 0N1 NTERVmL*1O6ÙSUBS00 INTERVm 
LON TL*100 

170 STRIóiflJON 0NSTRI680SUB708 
175 SPKITEON 0NSPRITE60SUB600 

199 REM CONTROLLO 

200 p»USR<p>IFVPEEK( ó912i)13dTHENóE«1S 
ÙT0900 


202 X=VPEEK<Ó913> IFX<57THENP0KE59996!,1 
3ELSUFX5184THENPÙKE59996! , 7ELSEP0KE5 999 
6' ,15 

210 60SUB3fld 

220 IFSHO0THEN60SUB4flfl 

290 0ÙT0200 

299 REM MOVIMENTO ASTRONAVI NEMICHE 

300 SPRITEOFF lFVPEEKtn917X9THLNVP0KE69 
16, INTCRNKt )>128*24 > VPOKE6917,255 

310 SPRITEON VP0KE6917,VPEEK<6917>-7 
320 RETURN 

399 REM MOVIMENTO NnVICELLA HAPRE 
4 0d INTERVmLÙFF sTR 16(U>0FF:K•VPEEKCSH» 3 
2) INTERVALLI lFK*148ORK*149THENVPOKEa20 
8,241 VP0KE8209,241 VPÙKE8218,241 SC*SC» 
1U PLAY*S1M20O0L14N5ON45 * :60SUB1800 VP0K 
ESN, 32 SM*0 VPÙKE8208,145 Vf , 0KE8209,145 : 
VP0KE6218.145 STRI6<0>0N RETURN 
418 1FK*32THENSM*SH*32 VPUKESM,152 :VPOKE 
SH-32.32 STRI6«.0)0M RETURN 

449 REM LA NHVICELLA PRECIPITA 

450 VPOKESH,135 FORI*110100 NEXT SC*SC-1 
8 OOSUBlflflo VPOKESH,32SH*OSTRI6(0)ONR 
E TURI! 

499 REM SCROLL 

500 P»USR2iP> IFT[ME/ó0>TLTMEN90fl 
505 IFSHOOTMENSH*SM-1 

510 RETURN 

599 REM COLLISIONE 

cOO INTERVmLÙFF STRI6<0)OFF.FORI•1T020:C 
OLOR 15.1,1 PLAY*IB4é8»2O0OOn21nl2*:C0L0 
R 1,15,15 NEXT 
bIO 6E*2 60T0900 

699 REM BEPOSITO AGENTI 

700 IFSMOoTHENRETURN 

710 I3-INT<(VPEEKtó913>«20)28>SH*6144*3 

2«INT(1<VPEEMb912>*20>/8>>»I3 IFSH<6 368 

THEN6H*0 

740 RETURN 

689 REM ORME OVER 

908 COLOR 15,4,7:SCREEN1 PRINT’Hai total 
1 zzata *.SC;* Munti* 

910 PRINT PRINT PRINT:ON<GE*1)60X0920,93 
8,940 

920 PRINT*IL TEMPO E' SCAPUTO!* 60TO990 
930 PRINT-LA NAVICELLA MAPPE E' PRECIP IT 
AIA!* 60X0990 

940 PRINT'LA NHVICELLA NAPRE HA URTATO”: 
PRINT’UN'mSTRONAVE NEMICAI* 

990 IFINKEVt***IMENENPELSE998 
999 REM A661ORNAMEHT0 PUNTE66I0 
1080 PRINT-PUNTI: *,SC,CMR»<11>, 

1010 RETURN 

9999 REM PhTA SPRITES 

10008 PmTA3.4.15.31.63.64.255,213,255.21 
3.255.83,31.0.0.8.192.32,240.248.252,2.2 
55.85,255,85.255.252,248,0,0,0 ' 

10010 PATmIoO,160,b4,1bO,160,0,0,0 

10099 REM PmTA CARATTERI 

10100 PmTA255,255,255,255,255,255,.55.25 

r 

* 

10102 PmTAbb,16,130.40.84.130,10,68 
10104 PA1m 192,48,12.3,0,0,0,0 
luluó PATAO,0,8,0,15,31,63,127 
10188 PhTm 3,12,48.192,0.0,0,0 
ione PhTAI,3,7,15,15.7,3,1 
10112 PmTAO,0.0.0,240,248,252,254 
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10114 

9*1*128. 

192,224.240.240. 

224 

.192.12 

0 

10116 

9*7*255, 

,127,63.31.31.32, 

64 , . 

128 

10118 

9*7*255 

,254,252,240,248, 

,4.2 

. 1 

10120 

Ih IhU.0 

,0.0.3.15,63.255 



1U122 

9*Ih8.8 

,0.0,192.240,252. 

,255 


10124 

9*1*255 

,63.15.3.0.0.0,0 



10120 

9AT*2S5 

,252.240,192,0,0 

.8.0 


1U120 

9*7 h8,0 

,8.0,255,24,31,24 


10130 

9*1*0.0 

.0,0.255.24,248.24 


10132 

9*1*24,. 

24,31,24,24.31,24.24 

24 

10134 

9*1*24, 

24,240,24.24.248 

.24, 

1813o 

9*7*10, 

16,40.48,50,124,, 

254 . 

130 

10138 

9*7*0.0 

,0.32.0.0.8.0 



10199 

REM 9*7* PER LiH6U*6610 

MnCCHIN* 

10200 

9m7*o,31.42,100,2*5,43. 

35.205.27,2 


35,128.254.31,282,215.235.4,43,205,««.23 
5.35.185.227,235,Ó.9,1T.31.8.25,285,««. 2 

35 , ma, 237.82,237,81, 1#8,235,123,289.19* 

,180,235,122.188.194,19#,235.281 
60888 CLS RES7ORE60028 
60010 FORI“60888!7060217!; RE*9Ù: POSE!.8 
IIEX7 RES7ÙRE RETURN 


ooO20 9*7*219,170,230.240,33,92.234,94,2 
4o. è.8,8,8.a. 8. 8.8.8. 8.8,8, 211.178,219.1 
69.71.0.0.8.0.0,8,0.0 

O0U30 9*1*0.0,0.230.128.194,151.234,203, 
91.202,151.231,02.3,50,94,23*.195,209,23 

4.120.230.6*,19*.170,234,203.03.282,170, 

234.62.2 

60040 9*7*50,94.234.195,209.234.120,230, 

32,19*.109.234,203,07,202.109.23*.62,0.5 

0,94.23*.195.209,234,120.230.16,194,200, 

234,283,75.282,288.23*.62.1.58,94,234,19 

5.289,234,201,62,0,50,93.234.50 

68050 1,01*93.234,203,39.203.39,74,0,0,33 

.0.27.9.50.95,234,71.58,94.234,07,254,0, 

194.250.234,205.27,235,121,152.79,195,44 

,235,254 

o8Oo0 9*7*1,194.6,235.35,205.27.235,195, 
244.234.254,2,194,20.235.205,27,235.121, 

120.79.195.44.235.35.205.27.235.195.14.2 

35.125.243.211 

60070 9*1*153.124,211.153.0.0,0,0,219,15 
2.79,103.251.201.125,243.211.153,124,246 
.64.211.153,121,211.152.251,201 


Planetoidi 


MSX 


Avventuratevi nello spazio più distante abita¬ 
to da devastanti planetoidi. Dopo avere lan¬ 
ciato il programma vi troverete di fronte al qua¬ 
dro di controllo della vostra astronave e vedrete 
avvicinarsi inesorabilmente un planetoide. 
Utilizzando i tasti cursore dovrete dirigere il mi¬ 
rino che compare sullo schermo in un punto 
segreto dell'astro e premendo la barra-spazio 
azionerete i raggi laser. Più il planetoide sì av¬ 
vicina, più è difficile scoprire il suo punto vul- 

1 REM F’LhME io i h 

2 6050360888 

3 ,.L5 PRIN7" Proni I un * 

4 IH Ut. EYI"’"tMEIl9*RH9>l»liu704 

5 OuLUK 15,1,1 5CREEN2,2 

15 FOR1»1IÙ32 RE*90 «»»*4»CHR4 wi> NERI S 
PKI7E4 n 0 » **4 

20 9EFU-.R*o0O00' P0KE5999o',15 P0KE59499 

1 .6 

30 *»•"” FuR 1 - 1 !08 RE*9Ù M*«m**CHRI»U> N 
ERI SPRItE*a>**» 

99 REM HSEGNO SCHERMO 

luo LIME*. *0.140;-<235,2U».15.B LIMEtO.lo 
0,-1251,01,15,0 LI NE 10.192 >-1255,160».15 
.0 LIMEnl8,190>*tl80.17Ò>.15.0 


nerabile. Se non sarete abbastanza veloci sa¬ 
rete distrutti dall'astro. 

L'avvicinamento del plenetoide è controllato 
dalle linee 450-490 ed è qui che si possono at¬ 
tuare delle semplici modifiche: alterando i va¬ 
lori delle variabili Re A S si possono creare de¬ 
gli effetti completamente differenti e inoltre si 
possono istituire dei livelli di difficoltà modifi¬ 
cando la velocità di avvicinamento dell'astro. 


Ilo LINE U3.187» 177,173», 15,0 P* Itili 50 

. l4o • 

120 LlHE<0.168>*<20,140» LIIIE<255, lo0»-< 
235.140, LINE v 8.8 > *< 28.28 » LI NEC255,0 »-( 
735,20» 

Uo FORI*SUTU10USTEP1U lIRCLEv I , 14o».2 P 
*1111 v I . 146 » NERI FORI *7570185S7EP1U CIRC 
LE,i.l54>,2 P«INTU.154> HEX1 

l*o 9 RmH-6u 35,145r20»lo 120»106»195,14 7rl 
0»5 1 10t.ILi.2lS, 147r10451 lùt,5 “ P*INH220,1 
50» 

150 IiRmH‘lo28u, 175*5rlot,5“ CIRCLE<225,17 
7/.1U LI NE « 225.167)-(225.Id7» LIMEi215,1 
77»-v235.177» 
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lati Lll4Ei21.141>-<234,21).15. B PRhH'Di. 48 
,lj)u4«3t3ci4U.,015.1J9.i4«)T3J4-pMlNn42, 
138) PhINT(217,1)8) 

lei IF NP = «THEN170ELSEPRMM'bkSS,8* FORI»! 
IONP PRHH"*3»3*3h)br9- NEXT 
178 PRESET<17.178) PRESE Ti 17.179) PRESE7 
<17,188' PRESE 1<18,177) 

1)8 1FNPO0 IHEIJ27U 

18) REFI PISEoMO CORR I PO 1 ù SPnZImLE 

Elio F0PJ*11G3 Xl«12u : X2*141 Yl = 3u V2*96 

818 FoRI»lTulo B*«'n’*STR»<I»28) PE»Y-«,2 

99«1119»1>«,- UFIE*Xl,Yl>-iX2.Y2),15.» RI 

■XI-I X2»X2*I Y1«Y1-| V2»Y2tl NERI LINEI 

45,13u>-i211,24),15,P 

228 X1*126 X 2 ■ 141 Y1 *88 Y2*98 F0R!*lTul8 
lfl*"n"*àTR4<26-|) PLMY“i.299*lli9xbl,•.L 
INE<X1,Y1)-<X2,V2).1,E Xl-xi-1 X2-X2-I Y 
1-Yl-t Yi*V2*l NEXT LINE.45,138>-<211.24 
>.i.B NEXT 

278 PUISPR1TE6,<120,TU),9 

888 WX*o WY*o STRIb\0)0M ONSTRI660SUB9OÓ 

8)9 REFI CONlHULLU 

JUU h*PEEI. 159996 ! ) X«VPEEk>6913) Y-VPEER 

>8)18/ IFa<j81NENP0XEÌ)886' ,P£EK<S9)9o', 

MURI3ELLEPORE 5999c ',PEEKi5999o' >OR2 

JU5 IFX>XÙ9THENPUR.ES9998•,PEER<5999e•> hN 

PTELSEPOKES)))© 1 ,P£EK\5999e'$UR8 

318 lFY<3oTMEMP0RE59996', PE£m999o 1 >hNP 

14 E L SEP ORE') 9998 •, PEEK<5999o 'JORI 

315 IFY>iOuTMENPuRE599)o!.PEER< 599)8 ')hN 

P11ELSEPURE59996',PEER<59996'>8R4 

)8U P*USR‘P> 

>iU I F Pl-unHPRNP * IX. 1THEN60SU648O 
-40 IFPL=llHENoÙSUB45U 
3)0 OÙT038U 

3) 9 REFI PLMMETOIPE 

4 00 CX»lNTlRNKl)*9e*80) CY=INT<RNK1F*3 
6 *eu '■ R»3 CIRCLE*iX,CY),R PmINTaCX.CY) 

418 PL-1 PU1SPR1T£1.\170.17Ó),1 

42u H;<*CX»|NT<RMK 1X88-40) MY*CY«INT<RN 

PilXTO-35) 

44u RETURN 

458 IFRIIK1)<.2Th£MR*R* 2 
4eo M8-KNP'l)/3*,© CIKCLE\CX.CV),R.15.Ù. 
8.23.RS 

4?0 8Pù)Ee917,lo8-3»R 
480 IF8PEER.o9l7><15TMEN2u88 

4) 0 KETURFI 

7oo bTkl6iO)OFF F0RI-1I058 PL8V l4o»380* 
8n24- X1*1HT<RNK1X98-45)CX) Yl»INT<RNP 
<1)4)8-45tCY) X2»iNHRNIiUX206»25> Y2«l 
NT * KMP\1)4118*25) 

710 L|NE«X1.V1)XX2,V2),1 CIRClE<XI,Y1>, 
l CIRCLE.X» Y2>,2 PmINT<X 2.V2> NEXT 
720 PUTSPRITEl.<108,288) PE*8 
T30 NP*MP»1 CLS Ó0T8188 
8)9 REFI liSRR 

)ÙU lX=VPEEk<o913)*o IY*8PEEK<6912>*0 Li 
ME<44,13i)*iIX,JY).ll L I IIE< 217,132 ) -< I X, 
IY).Il 

985 PLHV*ll8«18u8«14n33* 

918 LIME.44,132)-UX,:Y>,t L I NE < 217.132) 

-<IX,IV),1 

920 1FvHX-CX)'2*<HY-CY)'2>.R4RIm£NRETURFI 
938 IFhBS< IX-UXX15hNPhBS<, IV-HYX15TMEH7 
oo 

970 RETURN 


19)9 REM 8 hME OVER 

2o00 F8R1*1T0106 PLRV164k280«14n23* Xi = 
INI vkNlM 1.4255) Vl»INr<RNl><l)*192) X2*IH 
IiRNkv1/4255) Y2* INI <RMP< 1X192) ; LIME iXl 
,Yl)-lX2,Y2> IIEXI 

2818 SCREEN1 PRINT'SEI STATO DISTRUTTO!I 
" PRIMI PRIMI PRIMI PRIMI"PINNE TùI PI CO 
LPII1 -,NP 

2899 1FINREYI»" TMENElIPELSE 2899 

9994 REM PhTm SPRITES 

18088 P« Ini, 2,4.6,li,32,65,131,131.65,32 

.le. 8.4,2.1.128,84.32,li.8,4.138,193,193 

.130,4,8.le,32,e4.128 

18018 PmTh24. io.128.128,08,24,0,8 

08088 CL) RESIOREe8028 

eoolo F8Rl*eùoo0‘T8e0217■ RE «PO POKEl.Ù 

NEXT RESTURE REIURII 

e882ù PhIh 219.176,230.248,33,92,234.94,2 
4e. 8. 8.0.0.0.8.0.0.8,8.0.‘0,211,170,219.1 
89,71.0.0,8,0,8.8,8.8 

o88)0 P-IhO,0,8.238.128.194,151,234.283, 
91,282,151,234.82.3.50,94,234,195,289,23 
4,120.238.64,194,178.234,283.83,202,178, 
234,02,2 

68048 PmTmSo 94.234.195,289.234,128,238, 
32.194,169,234,283,o7,282,189,234.e2,0,5 
8.94.234.195.289.234,128,238.16,194.2U8, 
2)4,283.75,282.268,234.02,1.58,94-234.19 
5.209,2)4.201.02,0,58,93.234,58 
6oo5u PmTh93.234,283,39,203,39.79,6,0,33 
,8.27.9.56,95,234.71,58.94.234,87,254,0. 

1) 4.258.2)4,205.27.235,121.152.79,195.44 

.235,254 

08008 WilHl,194,6,235,35,205.27,235.195, 

2) 4,2)4.254.2,194.20.235,285,27.235,121, 
128.79,195,44,235,35,28$,27.235,195.14.2 
35.125.243,211 

00070 PhThIS).124,211,153,0,8,8,8,219,15 
2.79,183.251.261,125.243,211,153,124,246 
,04.211.153.121,211.152.251,261 
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